SoftSide Magazine Selections Issue 58 (1983-08 Atari)

3il^ctionj

Chemistry

A product of SoftSide Publications, Inc.
10 Northern Blvd., Amherst, NH 03031

A

_5ilcctionj

ATARI* Is a registered trademark of Warner Communications.

Index

FRONT RUNNER: Relaaax...

by Peter J. Favaro

This program offers an easy, highly ac-
cessible system for relieving the tension
that builds up after a long day at the com-
puter, or over a hot stove cooking dinner
for the family. After you learn hov\/ to use
Relaaax..., you can exorcise tension
whenever necessary

\ Q^\.

&.

DV BONUS PROGRAM: Chemistry Assistant

by Art V. Cestaro III

If you hate to look up common
chemistry formulas this program Is for
you. It makes changing grams to moles
and finding density as much a piece of
cake as calculating square roots, and
frees you to solve the real problems of
chemistry study

Math Quiz

by Jerry P. Wald

Math drills will become a llesure time
activity when your child boots this pro-
gram and plays his way to math facts
mastery

ADVENTURE DISK and CASSETTE BONUS:
SoftSlde Adventure Series: High School

by David Pleacher

Anyone who ever went to high school
knows what an adventure that was and Is.
Play the grade games and peer-group
games, and wend your way through this
simulation of one of llfes great adven-
tures

General Information

and System Requirements

20

23

30
32

This booklet prepared by the staff of SoftSlde Publications, Inc.
Entire contents copyrlght©19B3 by SoftSlde Publications, Inc., 10
Northern Blvd., Northwood Executive Park, Amherst, NH 03031

J

SoftSide Selections »43 1

SoftSide Selections *43

RELAAAX

RELAAAX

by Peter J. Favaro

with Richard IVI. O'Brien, Ph.D

I NOTE: Tape users should

type in and swat the listings
as shown and then when the
swat codes match, make the
following line changes:

Relax tape version line change.

270 IF R=flSC("R") THEN CLOSE INI: POKE
559, NO: POKE 764,12:CL0AD

Review tape version line change.

280 IF R=ASC("E") THEN CLOSE INI: POKE
559. NO: GRAPHICS NO:? "REHIND TAPE TO
RELAX' i TYPE CLOAD":END

Relaaax... Is a recreational program for an Atari® with 32K RAM.
Review requires 24K RAM.

Please read the instructions before booting up the program.
Removing distractions and sources of tension, such as glare
on the screen, is essential to successful results. Turn down the
brightness on your monitor to reduce eyestrain.

If you spend hours and hours in front of your television set or monitor play-
ing games, hacking away or telecommunicating (so who doesn't?), you prob-
ably leave those sessions with assorted aches and pains. They may be as mild as
a slight headache or as serious as a stiff neck which lasts for days. Stress, color
saturation, unnatural sitting positions, and fatigue are the likely culprits
responsible for these annoyances, usually related to a straining of one or more
muscle groups. A hot bath or a nice massage often is a good solution to these
problems, but when they are impractical or unavailable you can use your com-
puter (and Relaaax...) to help you relieve the tension it has helped to create.
With this series of programs, you can learn to relax after any stressful situation
Ukely to manifest itself in the muscles.

Nothing about relaxation training is magically curative. The effectiveness of
any relaxation training method is related to how well the person involved can
take instruction and wants to relax. The techniques presented in this series of
programs are derived from hypnosis and behavioral relaxation procedures.
Relaaax... has some advantages over both of them — you can do it in the
privacy of your own home, in comfortable surroundings (or even at your ter-
minal in your office) and it doesn't cost $50 an hour.

Relaxation Theory and Practice

The actual techniques and text were derived from methods developed by
psychologists Thomas C. Simek and Richard M. O'Brien, and presented in
their book, Total Golf (Doubleday and Co.)- They describe a uniquely in-
teresting approach to improving your golf game: coupling the process of
swinging the club with behavioral and psychological techniques such as relaxa-
tion training.

The theory is rather simple. When we experience stress, the muscles begin to
ache. Relaxation cannot take place unless you learn to relax the muscles. This
can, of course, be accomplished with drugs, by physically manipulating the
muscles through massage, or by applying heat to the strained area. Another
way to relieve muscular tension is by cueing yourself to focus on the changes
you feel when you deliberatley tense up and relax. Knowing what the body's
response is, you can train yourself to respond to these cues consciously. When
usng this relaxation program, you will tense specific parts of your body in se-
quence. Then, sounds and pictures will cue you to relax these parts. By focus-
ing on the different feelings produced in the tension cycle and in the relaxation
cycle, and associating the relaxation response with the cues, you should be able
to train yourself in a short time.

Beginning To Relax

Adequate preparation of yourself and the immediate environment is impor-
tant. It could mean the difference between success and failure. First, remove
any of the contributing causes of eye strain, such as bright lights. You should
always practice the following precautions before any long computing session.
They are extremely important to keep in mind when using this program;

• Make sure no glare is reflecting off your monitor. Sources can be either
natural or artificial light — a nearby lamp, or sunlight from a window.

• Position yourself in front of the monitor so you don't have to tilt your
head and cause strain on the neck muscles.

• Adjust the contrast and brightness on your screen so the colors are flat and
uniform.

• Seat yourself in a chair that is firm, yet comfortable, preferably one with
arms. Place your feet firmly on the floor.

• Position yourself two and one-half to three feet from your monitor.

You should be aware of three more precautions before you begin. First, if
you wear hard contact lenses, please remove them. Second, if you have chronic
back trouble or musculo-skeletal disease, talk to your physician before using
this program. Last, you should not use this program if you have damaged your
muscles through injury such as a pull, or a tear.

Relaaaxing...

The first thing you will see when you boot up the relaxation program is the
initialization message. The screen will do nothing for thirty seconds or so.
Next, the options menu will appear. Choice "E" stands for "Entire
Program." It runs on 32K machines (the text uses a lot of memory), and is
a tutorial to- help you learn the instructions as you go along. The goal is to

^ RELAAAX ^

SoftSide Selections #43 3

SoftSide Selections §43
. RELAAAX

teach you well enough so you don't have to read them every time you use the
program. Four or five sessions are sufficient for most people. To the right of
the text is a human figure. When the text explains which part of your body to
focus on, the figure's corresponding muscle group lights up. The program
organizes the muscles into four groups:

• Hands, Biceps and Triceps

• Forehead, Nasal Area and Mouth

• Neck, Shoulders and Stomach

• Thighs, Calves and Feet

A letter appears near the muscle group to remind you which particular muscle
you are working on. All of this gradually weans you away from the text by cue-
ing you.

Auditory cues reinforce these visual cues. Distinctly different pitches signal
each of the main muscle groups. Then one, two or three higher pitches tell you
whether you should work on the first, second or third muscle in the group.
For instance, the tone for relaxing the hands is middle C, followed by a single
tone of lower pitch, which tells you to work on the first group, first muscle.
After using the program a few times, you will be able to sit in front of the com-
puter with your eyes closed and cue yourself only by the tones.

The "R" option, "Review Sequence," presents the visual and auditory
cues, but no text. This runs in 24K and is the option you should use after you
have learned the basic instructions. Those who do not have enough memory to
use the entire program can learn by looking at the pictures and captions in the
printed magazine, and following the visual and auditory cues. With both the
"R" and "E" options, the only contact you need to have with the computer is
to tap the joystick in any direction to flip the text or drive the program. When
the screen says "Tense," contract the muscle before you tap the stick.

AAAUUUMMM...

The "D" menu option is a program called the "Deep Breathing Trainer."
Use it to develop a deep and rhythmic breathing pattern. Simply hold the
joystick in your lap. As you exhale, move the stick forward; as you inhale
move the stick back. Feedback on the screen is in the form of a graph. By watch-
ing the line peak and dip you can develop a deep and even breathing pattern.
Try it!

Digital Seasliore

The final option, "O", stands for "Ocean Sounds," a fancy white noise
generator which simulates several beach and ocean sounds. Use this to help
you conjure up relaxing images, or keep this program on low to help block out
annoying "city sounds" or background sounds. White noise, like white light,
is the presence of all frequencies in equal proportions. Its effect is to wash out,
or mask, other sounds. Research suggests that white noise, and variations of it
called pink noise, have a relaxing influence. Several department stores offer
noise generators — at prices up to $60 — that do much less than this program.
Please keep the volume low on your television or external speaker — there's no
need to tense yourself up with thundering ocean sounds after you've just relaxed.
Aim for the sound of the tide coming in, rather than a storm at sea.

Self-Suggestion

Self-suggestion is an important part of these programs. When using the
relaxation training program you will notice a grey bar at the bottom of the
screen. During the relaxation phase of the exercises, you should concentrate
your attention on the bar. As the bar gradually fades into the background,
repeat positive statements to yourself. Let your body become more and more
relaxed as the bar gets darker and darker. With each decreasing shade of inten-
sity let yourself feel looser and limper. You may need some practice, but you
will find self-suggestion an essential part of using the relaxation program.

I won't go into detail about the programs themselves, since they all utilize
elementary programming techniques which are described in Sof (Side's tutorial
articles. If you are interested in any of the sound generation techniques, the
character set graphics or bit-mapping used in the deep breathing program,
write to me at SoftSide and I'll be glad to help you if I can. Enjoy the Relaxa-
tion Training System, and look for modifications and enhancements in future

Peter J. Favaro is a school psychologist and wUl receive his
doctorate in School and Clinical Psychology from Hofstra
University in August. He also teaches psychology at Hofstra and
is an educational and recreational video game design consultant.

Richard M. O'Brien, Ph.D. is a clinical psychologist and pro-
fessor of psychology at Hofstra University. He has worked exten-
sively in the areas of industrial and sports psychology and is the
author of Total Golf (Doubleday and Co.) as well as Industrial
Behavior Modification: A Learning Based Approach to Business
Management (Doubleday and Co.).

Variables

B: Location of alternate character

set.

B: Location of alt. character set.

BL: Variable which holds the

number of times to print blank

lines to erase text.

D: Causes tone to ring N number

of times.

DELAY: Variable controlling fade

of timer bar.

DL: Tone envelope for auditory

cues.

DX, DY: Coordinates of chart.

E2, E3: Number of bytes to output

to the screen.

ND: Clears sound register 0.

PSE: Delay to keep title page on

screen and delay loop variable.

R: Response from menu choice,

machine-language scroll routine,

and one of five random "wave"

sounds.

S$, TXT$, A, B, CBASE, I, MM,

MN: Variables which allocate

memory for character set and

define character set via string

techniques.

SA: Start address of screen write

memory.

ST: Joystick zero.

START: Bit map variable.

STRIG (NO): Joystick (0) trigger.

TIME: Length of time to sound

"wave."

TIMES: Number of times to plot a

star.

X, Y: Coordinates of X axis.

RELAAAX

SoftSide Selections 443

SoftSide Selections #43

SS SS SS SS SS SS SS SS SS SS 3S

SS SS

SS Atari BASIC SS

SS 'Relax' SS

SS Authors: Peter J. Favaro SS

SS Richard M. O'Brien, Ph.D. SS

SS Copyright © 19B3 SS

SS SoftSide Publications, Inc SS

SS SS

SS SS SS SS SS SS SS SS SS SS SS

If you don't wish to type this program, It Is
available on issue #43 SoftSide DV and CV.

100 ? CHR«<125):? "INITIALIZIN6, ONE «
ONENT PLEASE":N0=0:Nl=l:N2=2:Ni=6:N7=7
:N8=8:N16=!6:N17=17:N2210=2210
no N2320=2320:N2340=2340!DII1 S$U024)
,TXT$(l):A=ADR(S$):B=INT(A/512+Nl)tN2:
CBASE=B»25A-A+NI ! S« (Nl ) =CHR< (NO)
120 St(1024)=CHR»(NO):S*(N2)=S$(Nl);F0
R I=NO TO 5!1:S»(CBASE+I,CBASE+I)=CHR$
(PEEK (I+573M)): NEXT 1
130 RESTORE ;FOR I=NO TO 41:READ R:POK
E UM+I,R:NEXT I:HI1=24!NN=31
140 IF HN>120 THEN 160
150 FOR 1=1111 TO NN:READ NjStd+CBASE.I
+CBASE) =CHR$ (N) : NEXT I : HN=NI1+N8:NN=NN+
NB:SOTO 140
160 HH=208:NN=215
170 IF M«>256 THEN 190
180 FOR I=I1M TO NN:READ N:S*(I+CBASE,I
+CBASE) =CHR« (N) : NEXT I ; HH=flN+N8; NN=NN+
N8;60T0 170
190 HM=464;NN=471
200 IF MN>479 THEN 220
21.0 FOR I=HM TO NN:READ N:S»(I+CflASE,I
+CBASE)=CHR«(N1:NEXT I:I1«=»N+N8:NN=NN+
NS:60T0 200
220 REM

230 GRAPHICS 18:P0KE 756,B:SETC0L0R NO
,N0,N6!PQSIT10N Nl.NO:? #N6!"RELAXATI0
N TRAINER":? iN6;" »>OPTIONS HENU)))'
240 ? *N6;' mmHiiiiiiiWi? iN6;
■ L REVIEN SEQUENCE":? #H6;" e. ENTIRE
PROBRAN":? IN6;' d DEEP BREATH I NB"
250 ? IN6;" TRAINER":? #N6;' ^ OCEAN
SOUNDS':? «N6:? tlN6;" 9333S39)9a33M3
J3J":? IIN6;" ENTER CHOICE"

260 CLOSE *N1:0PEN »N1,4,N0,"K":GET IN

1,R:IF R=ASC("E") THEN CLOSE «N!:GOTO

300

270 IF R=ASC("R") THEN CLOSE #N1:P0KE

559,N0:RUN "D:REVIEN"

280 IF R=ASC("D") THEN CLOSE «N1:G0T0

2370

290 IF R=ASC("0") THEN CLOSE «Nl;GaTO

2570

300 REM

310 GRAPHICS 18:P0KE 756,B:SETC0L0R NO

,4,N8:SETC0L0R N1,4,N6:SETC0L0R N2,N0,

N6:P0SITI0N 9,3;? #Nt;"#"

320 POSITION NB,4:? tN6;"7.»!i";P0SITiaN

N8,5;? IN6i"'()*";P0SITI0N N8,N6:? #N
6;'+,-":P0SITI0N 9,N7:? iN6!"./"
330 POSITION N8,N8:? «N6i":;<":P0SITI0
N NljNO;? #N6! 'relaxation trainer';? t
N6:? IN6!" FULL RELAXATION"
340 POSITION N6,10:? »N6!"PR06RAH":? I
N6j» ===£===£==========" -FOR PSE=N1 TO

1500:NEXT PSE
350 GRAPHICS 18;SETC0L0R N0,N0,N6:P0SI
TION N2,N2:? #N6)'THIS PROGRAM IS':? «
N6:? IN6;" DESIGNED TO HELP"

360 ? »N6:? «N6i" YOU LEARN TO RELAX."
:60SUB N2210:G0SUB 2330

370 POSITION 4,N2;? «N6!"PLEASE READ":
? tN6:? IN6|" THE DOCUMENTATION":? »N
6:? #N6;' BEFORE ATTEMPTING'
380 POSITION 5,N8:? »N6;'T0 USE IT.'sB
OSUB N2210:60SUB 2330

390 POSITION 5,5:? #N6;"LET'S BEBIN":B
OSUB N2210:G0SUB 2330
400 GRAPHICS 18: POKE 756,B:SETCOL0R N2
,4,N8:SETCOL0R NO,N0,N6:6OSUB 2300:605
LIB 1950

410 POSITION Nl.Nl:? «N6; "FIRST LET US
":? #N6:? »N6i' BECOME FANILIAR":? «N6
:? «N6!" MITH THE"

420 ? »Ni!? «Ni;" SCREEN? ":80SUB N2210
iGDSUB 2310:P0SITI0N Nl.Nl:? »N6;"0N T
HE RIGHT":? KN6:? «N6;' SIDE OF THE'
430 ? ttNi:? IN6i" SCREEN THERE":? ttNi:
? #Ni!" IS A FIGURE?" :GOSUB N2210:60SU
8 2310
440 POSITION N1,N1:? «N6i"TEXT WILL";?

tINi:? «Ni;" APPEAR TO THE":? Mb:? IN
6;" LEFT OF THE"

450 ? «Ni:? iINi;" F1GURE?":G0SUB N2210
:G0SUB 2310:POSIT10N N1,N1:? »N6;"AT T
HE BOTTOH'

460 ? «N6:? IH6;" OF THE SCREEN":? IN6
:? #N6;" THERE IS A";? INt:? #N6;" GRE
Y TIMER BAR?":SOSUB N2210:E0SUB 2310
470 POSITION N1,N1:? IN6;"THE FIRST FE
W":? «Ni:? IN6;" TIMES THAT YDU";? iHb
:? INi;" USE THIS"
480 ? »N6:? IN6;" PROGRAM VOU":? «Nt:?

«N4;" WILL NEED TO":.GOSUB N2210:GOSUB

2310
490 POSITION Nl.Nl:? #N6.!"FAy CLOSE":?

#N4:? IN6;" ATTENTION TO":? «N6:? #N6
:" THE TEXT?"

500 ? iN4:? »N6i" AFTER A WHILE";? »N6

:? «N6;" VOU WILL LEARN'jGOSUB N2210:B

OSUB 2310

510 POSITION NljNl:? «N6;"THE RELAXATI

ON':? INi:? #Ni;" INSTRUCTIONS":? IN6;

? #N6;" AND VOU MILL"

520 ? #N6:? «N6;" ONLV NEED TO":? IN6:

? INi;" LOOK AT THE";60SUB N2210:60SUB

2310
530 POSITION Nl.Nl:? IN6; "FIGURE AND";
? #N6:? ilN6;" LISTEN TO THE";? «N6;? t
N6;" AUDITORY CUES"

540 ? #N6;? «N6;" TO DO THE";? ilNi:? «
N6j" EXERCISES?":60SUB N2210:60SUB 231
0:POSITION N1,N1;? #N6;»T0 PREPARE"
550 ? #N6:? #N6;" TRY TO";? IN6:? #Ni;
" IMAGINE A":? IN6:? «N6;" TRANQUIL";?
«N6:? #N6;" SCENE?"

560 60SUB H2210:60SUB 2310:P0SITI0N Nl
,N1:? iN6! "CONCENTRATE":? iN6:? iNfcs"
ON THIS"

570 ? #N6:? *N6j" SCENE AND»;60SUB N22
I0:BOSUB 2310:PQSITION N1,N1:? »N6i"0N
YOUR':? «N6:? »Ni!i;" BREATHING SO"
580 ? »Ni;? «N6;" IT IS DEEP";? «N6;?
#N6!" AND RHVTHHIC? ":BQSUB N22!0:80SUB

2310
590 POSITION Nl.Nl:? «N6;»CL0SE YOUR":
? iN6:? «N6!" EYES AND ":? «N6:? tNi;
" THEN OPEN"

600 ? «N6:? «N6;" THEM AGAIN AT":? «N6
:? itN6;" THE TONE?"

610 GOSUB N2210:G0SUB 2310;60SUB N2340
;GOSUB 2300;SETCOLOR N0,N0,N6;P0SITI0N
Nl.Nl:? tN6; "THE FIRST
620 ? »N6!" MUSCLE GROUP":? iN6:? IN6;
" VOU WILL RELAX":? iN6:? «N6;" IS THE
": GOSUB N2210; GOSUB 2310
630 POSITION N1,N1:? «N6; " HANDS BICEPS
•:? «N6:? »N6;" AND TRICEPS ";? IN6;?
IN6;" GROUP?"

640 POSITION N16,4;? IN6j "7.": POSITION
N16,5:? «N6!"'":P0SITI0N N16,N6:? iU;

650 POSITION 18,4:? IN6;"8(":P0SITI0N 1
8,5:? «N6;")r:60SUB N2210
660 GOSUB N2320:P0SITIQN N1,N1:? *N6i"
THIS TONE WILL":? IN6;? «N6;" SIGNAL Y
OU TO"!? «N6:? «N6i' PREPARE TO"
RELAAAX ^

SoftSide Selections #43

SoftSide Selections #43

670 ? »N6:? «N6;" RELAX THIS':? «N6:?
IN6!" GR0UP?":60SUB N2210:G0SUB N2320:
fiOSUB 2290

m POSITION Nl.Nl:? «N6i'BE61N «ITH T
HE":? INi:? IN6;" HANDS? THIS":? »N4:?

)IN6i" TONE SIGNALS"

690 ? tlN6:? «N6;" YOU TO FOCUS":? #Ni:
? «N6;" ON YOUR HANDS?":POSITI0N 15, N6
:? #N6;"h":G0SUB N2210
700 GDSUB N2320:GQSUB 2290:GOSUB 22B0;
POSITION Nl.Nl:? «N6;"TEHSE THE HANDS"
:? IN6:? »N6;" AND WRISTS BY"
710 ? »N6:? »N6;" SQUEEZING YOUR":? IN
6:? tN6i" HANDS HARD?»:GOSUB N2210
720 BOSUB N2320:PQSITIQN N1,N1:? INA;"
FEEL THE":? »N6:? ttNi;" TENSION IN YOU
fl":? «N6:? »N6|" FINGERS WRISTS"
730 ? IN6:? «N6i" AND THE BACKS":? UNA
:? ttN6;" OF YOUR HANDS?":GOSUB N2210
740 GDSUB N2320:P0SITI0N Nl.Nl:? tNii"
FEEL THE":? )tN6:? »N6!" TENSION FOR":?

»N6:? »N6;" ABOUT 5 SECS?"
750 ? INA:? JN6;" RELEASE THE":? «N6:?

SN6;" TENSION SLOWLY?" :60SUB N2210
760 GDSUB N2320:P0SITI0N Nl.Nl:? »N6;"
ENJOY FEELING":? SN6:? «N6;" RELAXED?"
:? #N6:? »N6;" AS THE BAR"
770 ? «N6:? «N6;" GETS DARKER";? tNA;?

«N6;" LET YOURSELF': BOSUB N2210:G0SUB

N2320:P0SITI0N Nl.Nl:? JN6;"BEC0NE"
7B0 ? »N6:? #N6;" MORE AND MORE':? *N6
:? «N6;" RELAXED ?": GDSUB N2210: GDSUB N
2320:60SUB N2340:SETC0L0R N0,N0,N6
790 GDSUB 1970;60SUB N2210:G0SUB N2320

: GDSUB 2290:60SUB 22B0:60SUB N2340:SET
CDLDR N0,N0,N6:60BUB N2320
BOO POSITION Nl.Nl:? »N6!"N0H YOU HILL
":? *N6:? SN6j" LEARN HOW TO":? tlN6:?
#N6;" RELAX THE"

810 ? *N6:? ltN6;' BICEPS?": POSIT ION 15
,N6:? «N6|"b":G0SUB N2210:G0SUB N2320:
POSITION Nl.Nl:? «N6;"THIS"
820 ? «N6:? «N6;" TONE WILL ":? #N6:?
»N6.!" SIGNAL YOU TO":? *N6:? iN6i" REL
AX THE":? «N6:? #N6i" BICEPS?"
830 GOSUB N2210: GDSUB N2320:60SUB 2290
:BQSUB 2260:PDSITION Nl.Nl:? »N6!"THIS
IS DONE":? «N6:? IN6;" BY SQUEEZING"

RELAAAX

840 ? »N6:? «N6;" THE BICEPS":? #N6:?
(IN6;" THE WAY YOU DO":? IN6:? «N6i" HH
EN SOMEONE": GOSUB N2210:G0SUB N2320
850 POSITION N1,N1:? IN6i°SAYS???":? #
N6:? «N6;» MAKE A MUSCLE ?";? «N6:? iN6
;" DO NOT MAKE"

860 ? IN6:? »N6;" A FIST WITH":? »N6:?
«N6j" YOUR HANDS?":GOSUB N2210:B0SUB
N2320

870 POSITION Nl.Nl:? #N6;»BE SURE TO":
? »N6:? #N6;" REMEMBER TO":? IN6:? »N6
;" DO THIS WITH"

880 ? »N6:? IN6; " BOTH ARMS?":GOSUB N2
210:G0SUB N2320:P0SIT!0N N1,N1:? IN6;"
NOW LET THE"

890 ? »N6:? #N6i" BICEPS RELAX ?";? »N6
:? «N6!" MOVE THE STICK';? «N6;? tN6;"
AND FOCUS ON"

900 ? «N6;? itN6;" THE BAR???":GOSUB N2
210:G0SUB N2320:G0SUB N2340:SETC0L0R N
0, NO, N6: GDSUB 1970

910 GOSUB N2210:60SUB N2320:GDSUB 2290
;6DSUB 2260:6DSL1B N2340;G0SUB N2320:SE
TCOLOR N0,N0,N6

920 POSITION N1,N1:? iN6i»N0W YOU WILL
":? itN6:? »N6;" RELAX THE ":? «N6:? IN
6;" TRICEPS AND"

930 ? IN6;? #N6;" TOPS OF THE';? itN6;?
«N6i° FOREARMS? ": POSIT ION 15, N6:? »N6
;'t":POSITION 15, N7:? IN6;'r
940 GOSUB N2210:G0SUB N2320:P0SITI0N N
1,N1:? «N6;"TH1S TONE HILL":? «N6:? IN
6; " SIGNAL YOU TO"

950 ? IN6;? 1N6;" RELAX THE ":? «N6;?
IN6;" TRICEPS AND":? IN6:? IN6;" UPPER
FOREARMS ?"
960 GOSUB N2210:G0SUB N2320:G0SUB 2290
iGOSUB 2240:P0SITI0N N1,N1:? IN6;"T0 F
EEL WHAT IT"

970 ? IN6:? #N6;" IS LIKE TO':? iN6:?
IN6;" TENSE THESE":? IN6:? «N6;" MUSCL
ES PRESS":? IN6:? IN6;« YOUR ARMS"
980 GOSUB N2210:60SUB N2320:P0SITION N
l.NI;? IN6;"FACE UP INTO';? IN6:? IN6i
" THE ARMS OF A"

990 ? IN6;? »H6;" CHftIR? FEEL"-.? Wk-.l
«N6i" THE TENSION':? IN6;? IN6i" FOR
ABOUT 5 SECS?"

1000 BOSUB N2Z10:60SIIB N2320;P0SITI0N
15,9:? IN6;" "-.POSITION 15,N7:? IN6

I u n
!

1010 POSITION Nl.Nl:? #N6;"N0W RELAX??
?"!? #N6:? IN6;" LET YOURSELF":? «N6:?

IN6;" RELAX EVEN"

1020 SDSUB N2210:S0SUB N2320: POSIT ION
Nl.Nl:? IN6;"HQRE AS THE BAR":? *Nb;?
m\' SETS DARKER"

1030 ? »N6:? »N6;» AND DARKER?":? »N6:
? #Ni;" PLEASE MOVE"
1040 ? «N6:? ilN6;" THE STICK?": BOSUB N
2210:60SUB N2320:SOSUB N2340:S0SUB N23
20: BOSUB 1970

1050 BOSUB N2210:G0SUB N2320; BOSUB 229
0;BOSUB 22A0:G0SUB N2340:60SUB N2320
1060 POSITION N17,3:? #N6;»»':POS1T10N

Nl.Nl!? »N6;"N0N VOU «ILL":POSITION N
li,4:? IN6;"m"

1070 POSITION N16,5:? t)N6;" () f:POSIT
ION N16,N6:? »N6;"±";PQS1TI0N Nl,3:? «
N6i "LEARN HOW TO"
1080 ? »N6:? IN6;" RELAX THE ":? IN6:?

#N6i" FOREHEAD NOSE':? INi:? «N6;" AN
D NOUTH ?":GOSUB N2210
1090 BOSUB N2320:P0SITI0N Nl,Nli? «N6!
"THIS TONE HILL":? IN6:? #Nii" SIGNAL
YOU TO":? INi:? ♦N6;" PREPARE TO"
1100 ? IN6:? IN6;" RELAX THIS":? *N6:?

♦Ni;" HUSCLE 6R0UP?":6OSUB N2210:BOSU
B N2320:G0SUB 2150

1110 POSITION 15,3:? #N6;"f :POSITION
N1,N1:? tN6;"THIS TONE WILL":? »N6:? »
N6!' SIGNAL YOU TO"

1120 ? INi:? iHb;' RELAX THE":? IN6:?
INt;" FOREHEAD ?";eOSUB N2210:G0SUB N23
20: BOSUB 2150:60SUB 2160
1130 POSITION N1,N1;? ♦N6!"TENSE THE":
? IN6:? iN6;" FOREHEAD BY';? iN6!? «N6
;■ FR0HNIN8 HARD"

il40 ? «N6:? IN6!" HOLD THE":? «N6:? I
N6|" FROWN 5 SECS?":SOSUB N2210:G0SUB
N2320:P0SITI0N N1,N1:? #N6i 'RELAX THE"
1150 ? «Ni:? »N6;" FROWN AND":? IN6:?
«N6!" ENJOY THE":? #N6:? «N6;" PLEASAN
T"

1160 ? IN6:? #N6i" SENSATI0N?":60SLIB N
2210:B0SUB N2320:60SUB N2340:6flSUB N23
20: BOSUB 1970

1170 BOSUB N2210:60SUB N2320:B0SUE 215
0:GOSUB 2160:B0SUB N2340:B0SUB N2320
1180 POSITION 15,3:? «N6i"n":P0SITI0N
N1,N!:? #N6;"THIS TONE WILL":? iN6:? #
N6i" SIGNAL YOU TO"

1190 ? »N6:? »NA;" PREPARE TO":? «N6;?
itN6;" RELAX THE"

1200 ? «N6:? »N6;" NOSE? ":60SUB N2210
:60SUB N2320:S0SUB 2150:B0SUB 2170:P0S
ITIQN Nl.Nl!? »N6;"FIRST TENSE"
1210 ? IN6!? iN6!" THE MIDDLE OF":? #N
6:? »N6;" YOUR FACE BY":? tN6:? #N6i"
SCRUNCHINS UP"

1220 ? »N6:? »N6;" THE NASAL AREA?": BO
SUB N2210!G0BUB N2320: POSITION Nl.Nl:?
#N6;»TRY TO KEEP"

1230 ? IN6:? «N6i" THE FOREHEAD":? ♦N6
!? »N6;" SMOOTH? TENSE";? #N6:? »N6;"
THIS AREA FOR'

1240 ? »N6:? *m-," ABOUT 5 SECS???":GO
SUB N2210:BQSUB N2320;P0SITI0N N1,N1;?
#N6i"N0W BE6IN"

1250 ? #N6:? IN6;" TO RELAX":? IN6;? I
N6;" THIS AREA OF":? #N6:? tNi;" YOUR
FACE???"

1260 BOSUB N2210!GOSUB N2320:B0SUB N23
40!6QSUB N2320:G0SUB 1970
1270 GOSUB N2210;60SUB N2320:B0SUB 215
0;BOSUB 2170:60SUB N2340!G0SUB N2320
1280 POSITION 15,3:? «N6!"i«":P0SITION
N1,N1:? «N6;"THIS TONE WILL":? #NA:? t
N6;" SIGNAL YOU TO"

1290 ? tN6:? «N6;" PREPARE TO":? «N6:?
«N6i" RELAX THE"
RELAAAX

SoftSide Selections #43

SoftSlde Selections »43

1300 ? «N6:? iU\- HOUTH AREA?":6QSUB

N2210:60SUB N2320:60SUB 2150:60SUB 219

OiPOSITIQN Nl.Nl:? «Ni;"TENSE THE'

1310 ? IN6:? «N6i" HOUTH BY":? IN6:? I

N4i" PRESSING THE":? INA:? «N6;' LIPS

TOGETHER"

1320 ? IN6:? tN6;" HflRD???":60SUB N221

OjGOSUB N2320:POSITION M,9:P0SITI0N N

l.Nl:? IN6;"H0LD THE "

1330 ? «N6:? INb;" TENSION FOR":? tN6:

? IN6j" ABOUT 5 SECS?":? IN6:? »N6;' T

HEN LET"

1340 ? IN6:? #N6;" YOURSELF???" :GOSUB

N2210:60SUB N2320:60SUB N2340;60SUB H2

320:60SUB 1970

1350 GOSUB N2210:G0SUB N2320!60SUB 215

0;60SUB 2190:60SUB N2340!G0SUB N2320

13i0 POSITION N17,3:' IN6 ;"_!'! POSIT ION

N16,4:? l«6i"X«i"tP0SITI0N N17,5:? IN
6;"O":P0SITI0N Nl.Nl
1370 ? «N6;"N0« YOU KILL":? «N6:? IN6;
■ LEARN HOK TO":? «Ni:? INfc;" RELAX TH
E ":' IN6:? «N6;" NECK SHOULDERS "
1380 ? INt>:? IN6|" AND STOMACH ?" :GDSUB

N2210:G0SUB N2320:P0S1T10N Nl.Nl:? »N
i;"THIS TONE HILL"

1390 ? »N6:? »N6;" SIGNAL YOU TO":? IN
i!? INi;" PREPARE TO":? »N6:? «Ni;" RE
LAX THIS"

1400 ? IN6:? ilN6i" MUSCLE GROUP?" :6DSU
B N2210!G0SUB N2320!GOSUB 1990:P0SITI0
N 15,3;? #N6i»n"

1410 POSITION N1,N1:? «Ni;"THIS TONE N
ILL":? »N6:? #N6:" SIGNAL YOU TO":? «N

RELAAAX

10

6:? IN6,-

" PREPARE TO"

^i

(

s^3

J^%

1420 ? IN6:? IN6i° RELAX THE":? IN6:?
IN6;" NECK HUSCLES?": GOSUB N2210:60SUB
N2320: GOSUB 1990: GOSUB 2010

1430 POSITION N1,N1:? «N6!"TENSE THE":

? »N6:? tNij" NECK BY":? «N6:? IN6;" P

LACING A HAND"

1440 ? INA:? IN6;" AGAINST YOUR":? IN6

:? «N6;" FOREHEAD AND":60SUB N221O:G0S

UB N2320

1450 POSITION Nl.Nl:? iN6;"PRESSING YD

UR":? INi:? tlNi;" HEAD INTO YOUR":? IN

i:? *N6:" HAND? DO THIS"

1460 ? «N6:? KNi; " FOR 5 SECS?":? »N6:

? IN6;' THEN ???":GOSUB N2210;G0SUB N2

320:G0SUB N2340:G0SUB N2320:S0SUB 1970

1470 BOSUB N2210:eOSUB N2320:G0SUB 199

0:G0SUB 2010:G0SUB N2340:G0SUB N2320

1480 POSITION 13,5:? #N6i"sh":P0SlTI0N

Nl.Nl:? «N6;"THIS TONE WILL":? »N6:?
«N6;" SIGNAL YOU TO"
1490 ? »Ni;? IN6;" PREPARE TO":? »N6:?

«N6;" RELAX THE"

1500 ? ltN6!'' #NA!" SHOULDERS?" iSOSUB N
22I0:G0SUB N2320: POSITION 13,5:? *N6i"

": GOSUB 1990: GOSUB 2030
1510 POSITION Nl.Nl:? «N6;"TENSE THE":
? INi:? INi;" SHOULDERS BY":? INi;? IN
i;" PUSHING THEM"

1520 ? INi:? INi;" INTO YOUR":? «Ni:?
INi;' CHAIR?";GOSUB N2210:G0SUB M2320:
POSITION Nl.Nl:? INi;"HOLD THE "
1530 ? INi:? INi;" TENSION FOR";? INi:
? INi;" ABOUT 5 SECS?":? INi;? INi;" T
HEN LET"

1540 ? INi:? INi;" YOURSELF???°:SOSUB
N2210: GOSUB N2320; GOSUB N2340: GOSUB N2
320
1550 POSITION 13,5:? INi;"st";POSITION

N1,N1:? INi;'THIS TONE MILL':? INi:?
INi;' SIGNAL YOU TO"
15i0 ? INi:? INi;" PREPARE TO":? INi;?

INi;" RELAX THE"

1570 ? INi:? INi;' STOMACH ?'; GOSUB N22
10:GOSUB N2320; POSITION 15,3:? INi;"
": GOSUB 1990: GOSUB 2050
1580 POSITION Hl,m:? INi;"TE«SE 1HE":
? INi:? INi;" STOMACH BY";? INi:? INi
i" SUCKING IN"

1590 ? #N6:? IN6;" THE STOMACH"!? «N6:
? iN4;" HARD?":60SUB N2210:G0SUB N2320
!POSITION Nl.Nl:? «Nij"HOLD THE "
1600 ? IN6i? IN6;' TENSION FOR":? tU:
7 #Nij» ABOUT 5 SECS?";? *N6:? INij" T
HEN LET"

1610 ? IN6:? iN6;» YOURSELF???" :BOSUB
N2210i60SUB N2320:60SUB N2!40:eOSU6 N2
320:GDSUB 1970:GOSUB N2210
1620 BOSUB N2320iBGSUB 1990iG0SUB 2050
:BOSUB N2340!60SUB N2320
1630 POSITION NI6,4:? »N6;"m"!P0SITI
ON NI7,5!? IN6;"O.":P0SITI0N N16,N6!?
»N6;"+,-"

1640 POSITION N17,N7!? #N6j",/":P0SITI
ON N16,N8:? #N6i°:i<":P0SITION Nl,Nl!?
«N6;°N0M YOU WILL"

1650 ? IN6!? »N6i° LEfiRN H0« TO":? tN6
:? iNii" RELAX THE "i? #N6:? #N6;" M
SHS CALVES "

1660 ? IN6:? #N6|" AND FEET?"!GDSUB N2
210:eDSUB N2320:P0SITI0N N1,N1:? »N6i"
THIS TONE HILL"

1670 ? IN6:? IN6i" SIGNAL YOU TO":? «N
6:? «N6;" PREPARE TO":? IN6:? IN6!" RE
LAX THIS"

1680 ? «N6!? IN6i" MUSCLE GROUP? "!60SU
B N2210:GOSUB N2320:B0SUB 2070:POSITIO
N 15,N7:? IN6;"t"

1690 POSITION Nl.Nl!? IN6;"THIS TONE III

ILL"!? *Hb:7 IN6;" SIGNAL YOU T0»!? IN

6:? IN6;" PREPARE TO"

1700 ? IN6!? iN6;" RELAX THE":? IN6!?

IN6i" THIGH MUSCLES?" :GOSUB N2210:B0SU

B N2320:60SUB 207O:G0SUB 2090

1710 POSITION Nl,Nl!? ♦N6;"TENSE THE":

? IN6:? #N6;" THIGHS BY"!? IN6!? IN6i"

STRETCHING"

1720 ? IN6:? IN6j" YOUR LEGS OUT":? IN
6:? «N6i' IN FRONT OF": BOSUB N2210!G0S
UB N2320

1730 POSITION Nl,Nl!? IN6i"Y0UR BODYA
S"!? IH6:? tN6;" FAR AS YOU"i? iN6:? «
N6;" CAN??? DO"
1740 ? IN6:? «N6;" THIS FOR"
1750 ? «N6:? IN6;" 5 SECS? THEN":GOSUB

N2210!60SUB N2320!G0SUB N2340!G0SUB N
2320:S0SUB 197O:G0SUB N2210
1760 60SUB N2320:60SUB 2070!60SUB 2090
!GOSUB N2340!G0SUB N2320
1770 POSITION 15. N7:? *N6;"c"!P0SITI0N

Nl.Nl:? iN6i°THis TONE NILL":? IN6!?
♦N6|" SIGNAL YOU TO"
1780 ? #N6!? IN6;" PREPARE TO":? «N6:?

IN6i" RELAX THE"

1790 ? iN6:? ♦N6i" CALF MUSCLES? "iSOSU
B N2210!G0SUB N2320:GQSUB 2070:60SUB 2
110:P0SITI0N Nl.Nl:? IN6;"TENSE THE"
1800 ? «N6!? #N6!" CALVES BY':? IN6:?
«N6;" RESTING YOUR":? #N6!? #N6i" HEEL
S ON THE"
1810 ? »N6:? IN6;" FLOOR HITH'iGOSUB N

SoftSide Selections #43

SoftSide Selections #43

2210:S0SUB N2320!POS1TION Nl.Nl:? tN6;

■YOUR LEGS OUT"

1820 ? »N6;? #N6i" IN FRONT OF':? »N6;

? INi;" YOU? NOW DRftW"!? «N6!? IN6;" Y

OUR FEET"

1830 ? tN6:? IN6:" UP T0«ARD":60SUB N2

210!eDSUB N2320:POSITION N1,N1:? IN6;"

YOUR FACE???":? #N6:? ttNij" FEEL THE"

1840 ? «Nii? INi;" TENSION AND";? »N6:

? »N6;" THEN LET THESE"

1850 ? IN6:? )tN6;" I1USCLES???":60SUB N

221OJB0SUB N2320:S0SUB N2340:60SUB N23

20

1860 60SUB 1970;B0BUB N2210:60SUB N232

0:GOSUB 2070:GOSUB 2110:60SUB N2340:G0

SUB N2320

1870 POSITION 15, N7:? INiiTiPOSITION

Nl.Nl!? IN6;"THIS TONE NILL":? IN6:?
IN6;" SIGNAL YOU TO"
1880 ? ltN6:? «N6;" PREPARE TO"!? «N6:?

«N6;" RELAX THE"

1890 ? INi:? INi; " FOOT MUSCLES? ":GOSU
B N2210;60SUB N2320:60SUB 2070;G0SLIB 2
nOiPOSlTIQN Nl,Nl!? INi; "TENSE THE"
1900 ? INi!? INi;" FEEl BY":? INi:? IN
6;" CURLINB YOUR":? INi:? »N6;" TOES I
NHARD"

1910 ? INi:? INi;" AND SQUEEZING" :GOSU
B N2210:60SUB N2320:POSITION NI,N1:? I
Nt;"THEn HARD?"

1920 ? INi:? INi;" TENSE THE":? INi:?
♦Nii" FEET THIS WAY":? INi:? INi;" FOR

ABOUT 5":? INi:? INi;" SECS? THEN???"

RELAAAX

12

1930 BOSUB N2210!G0SUB N2320!B0SUB N23
40:BOSUB N2320!60SUB 1970!GOSUB N2210:
BOSUB N2320:60SUB 2070:60SUB 2130
1940 BOSUB N2340:eOSUB N2320!B0T0 220
1950 POSITION N17,3!? INi;"r!POSITION

N16.4:? INi|"m":P0SITION Nli,5!? IN
i;"'Or:PQSlTI0N Nli,Ni:? IN6j"V"
19iU POSITION N17,N7:? INi;" J.": POSIT I
ON Nli.NB:? IMi!"||<":POSITION Nl.ll:?

»Ni; »==================" : RETURN

1970 POSITION Nl.Nl:? INi;"REPEAT THE"
:? INi:? INi;" TENSION ":? INi:? INi;"
CYCLE? "

INi;"
TENSE 5 SECS?";RETU

RELAXATION ";? INi:

1980 ? INi!? INi;'

RN

1990 FOR DC=15 TO Nl STEP -Nl: SOUND MO

,217,Ui,DC:S0UND N1,144,10,DC:F0R PSE=

Nl TO 5:NEXT PSE:NEXT DC

2000 SOUND NO, NO, NO, NO: SOUND Nl.NO.NO,

NO:RETURN

2010 FOR DC=15 TO Nl STEP -NhSOUND NO

,108,10,DC:SOUND N1,72,10,DC:FOR PSE=N

1 TO 5:NEXT PSE:NEXT DC

2020 SOUND NO,NO,N0,NO!SOUND Nl.NO.NO,

NO: RETURN

2030 FOR D=N1 TO N2:F0R DC=15 TO Nl ST

EP -NhSOUND N0,108,10,DC:S0UND Nl,72,

10, DC: FOR PSE=N1 TO 5: NEXT PSE

2040 NEXT DC:NEXT D:SOUND NO, NO, NO, NO:

SOUND N1,NO,NO,NO!RETURN

2050 FOR D=N1 TO 3:F0R DC=!5 TO Nl STE

P -NhSOUND NO,10B,10,DC;SOUND Nl.72,1

0, DC: FOR PSE=N1 TO 5: NEXT PSE

20i0 NEXT DC:NEXT D:SOUND NO,NO,NO,NO!

SOUND N1,NO,NO,NO!RETURN

2070 FOR DC=15 TO Nl STEP -NhSOUND NO

,243,10,DC:S0UND N1,193,10,DC;FOR PSE=

N! TO 5!NEXT PSE:NEXT DC

2080 SOUND NO,NO,NO,NO:SOUND Nl.NO.NO,

NO: RETURN

2090 FOR DC=15 TO Nl STEP -NhSOUND NO

,121,10,DC:SDUND Nl,9i,10,DC:F0R PSE=N

1 TO 5:NEXT PSE!NEXT DC

2100 SOUND N0,NO,N0,N0:SOUND N1,N0,N0,
NO: RETURN

2110 FOR D=N1 TO N2!F0R DC=15 TO Nl ST
EP -NhSOUND NO,I21,10,0C:SOUND Nl,9i,
10,DC:F0R PSE=N1 TO 5!NEXT PSE

2120 NEXT DC:NEXT D:SOUND NO,N0,N0,N0:

SOUND Nl, NO, NO, NO: RETURN

2130 FOR D=N1 TO SiFOR DC=15 TO Nl STE

P -Nl-.SQUND NO,!21,10,DC:SOUND Nl,96,l

O.DCrFOR PSE=N1 TO SzNEXT PSE

2140 NEXT DC:NEXT D:SOUND NO,N0,NO,NO:

SOUND Nl, NO, NO, NO: RETURN

2150 .FOR DC=15 TO Nl STEP -N1:S0UND NO

,217,10,DC:F0R PSE=N1 TO 5:NEXT PSE:NE

XT DC:SOUND N0,N0,NO,NO:RETURN

2U0 FOR DC=15 TO Nl STEP -NhSOUND NO

,53.10,DC;F0R PSE=N1 TO 5:NEXT PSE:NEX

T DC:SOUND N0,NO,NO,NO:RETURN

2170 FOR D=N1 TO N2:F0R DC=15 TO Nl ST

EP -NhSOUND N0,53,10,DC:F0R PSE=N1 TO

5:NEXT PSEiNEXT DC

2180 SOUND N0,NO,N0,NO:NEXT D:RETURN
2190 FOR D=N1 TO 3: FOR DC=15 TO Nl STE
P -NhSOUND N0,53,10,DC:F0R PSE=N1 TO
5:NEXT PSE:NEXT DC

2200 SOUND N0,NO.N0,N0;NEXT D;RETURN
2210 ST=STICK(NO);IF ST=15 THEN GOTO N
2210

2220 IF STICK(N0)<>15 THEN 2220
2230 FOR PSE=N1 TO 25; NEXT PSE: POKE 77
, NO: RETURN

2240 FOR D=N1 TO 3; FOR DC=15 TO Nl STE
P -NhSOUND N0,29,10,DC:F0R PSE=N1 TO
5: NEXT PSE: NEXT DC

2250 SOUND NO, NO, NO, NO: NEXT D:RETURN
22i0 FOR D=N1 TO N2:F0R DC=15 TO Nl ST
EP -NhSOUND N0,29,10,DC:F0R PSE=N1 TO

5: NEXT PSE: NEXT DC

2270 SOUND NO,N0,NO,N0;NEXT D;RETURN
2280 FOR DC=15 TO Nl STEP -NhSOUND NO
,29,10,DC:F0R PSE=N1 TO 5:NEXT PSE;NEX
T DC:SOUND NO,NO,NO,N0:RETURN
2290 FOR DC=15 TO Nl STEP -NhSOUND NO
,121,10,DC:F0R PSE=N1 TO 5:NEXT PSE:NE
XT DC:SOUND NO,NO,NO,NO;RETURN
2300 FOR DC=15 TO Nl STEP -NhSOUND NO
,50,10,DC:F0R PSE=N1 TO 5:NEXT PSE:NEX
T DC:SOUND NO,NO,NO,N0:RETURN
2310 FOR BL=N1 TO 9;P0SITI0N N0,BL:? «
N6;" ";NEXT BL:RETURN

2320 FOR BL=N1 TO 9:P0SITI0N NO.BL:?
Ni;" ":NEXT BL:RETURN

2330 ? »N6jCHR$(125):RETURN

SoftSide Selections #43

«

2340 POSITION 5,5:? IN6; "RELAX"
2350 N=N6:F0R DELflY=Nl TO 600:SETCOLOR
NO, NO, N: IF DELAY=200 OR DELfiY=400 OR
DELAY=550 THEN N=N-N2
23i0 SETCOLOR N0,N0,N:NEXT DELAY:SETCO
LOR NO, NO, Ni: RETURN
2370 GRAPHICS Ni:DX=3hDY=35: COLOR Nl:
PLOT 26,NhDRAMT0 31,Nl:DRfl«T0 31,70:D

RA«TO 26, 70: POKE 53277, N2

2380 X=NhY=Nl:TXT*="E":60SUB 2470

2390 X=NhY=50:TXT»="r:BOSUB 2470

2400 ST=STICK(NO):TR=STRIG(NO)

2410 IF ST=15 AND TR=NO THEN 220

2420 IF ST=13 THEN DX=DX+N1:IF DY<70 T

HEN DY=DY+N1

2430 IF ST=14 THEN DX=DX+NhIF DY>N1 T

HEN DY=0Y-N1

2440 IF ST<13 OR ST=15 THEN 2400

2450 PLOT DX,DY:IF DX<150 THEN FOR PSE

=N2 TO N6;NEXT PSE: GOTO 2400

24i0 IF DX>149 THEN R=U8R{I664);DX=149

;60T0 2400

2470 SA=PEEK (89) t256+PEEK (88) : fl0DE=PEE

K(87)iIF H0DE=N6 THEN C0LS=2O:ROHS=96

2480 IF Y>ROHS OR X>COLS THEN RETURN

2490 START=SA+YIC0LS+X:60SUB 2540

2500 CHARSET= (PEEK (756) »256) +(E3tN8)

2510 FOR E2=N7 TO NO STEP -NhPOKE STA

RT+E2»C0LS,PEEK(CHARSET+E2):NEXT E2

2520 X=X+NhIF X>COLS THEN START^START

+C0LS<N8:X=N0

2530 ST ART=START+Nh RETURN

2540 E3=ASC(TXT$):IF (E3<32) OR (E3>12

7 AND E3<160) THEN E3=E3+64: RETURN

2550 IF E3>31 AND E3<96 THEN E3=E3-32

2560 RETURN

2570 GRAPHICS N0:S0UND N0,33,N8,N1:P0K

E 53277, N2;P0KE 53277,4;P0KE 710,112

2580 POKE 752, Nh? ;FOR TIHES=N1 TO 50

:D=INT(RND!N0)>39+Nl):R=lNT(RND(N0)t22

tNl):COLOR 46:PL0T D,R;NEXT TINES

2590 IF STRIG(NO)=NO THEN FOR R=NO TO

3:S0UND R,N0,NO,N0:NEXT R:G0TO 220

2600 R=INT(RND(N0)t5+NM

2610 IF R=N1 THEN 2660

2620 IF R=N2 THEN 2670

2630 IF R=3 THEN 2680

2640 IF R=4 THEN 2700 ,

RELAAAX ^

13

SoftSide Selections #43

14

2650 IF R=5 THEN 2720

2660 FOR TIME=4 TO NO STEP -NhSOUND N

2,49,N0,TI«E:FOR PfiUSE=l TO IBOiNEU P

flUSEiNEU TII1E:G0T0 2730

2670 FOR T1I1E=N0 TO USiSDUND N2,TINE,

N8,N1:F0R PAUSE=1 TO 20:NEn PftUSEiNEX

T TIHErSOTO 2730

2680 FOR TIME=N0 TO 15; SOUND 3, 10, NO, T

IHEiFOR PflUSE=l TO 20:NEXT PAUSE:NEXT

TIME: IF STRI6(N0)=N0 THEN 2730

2690 FOR T1HE=15 TO NO STEP -Nl: SOUND

3,10,NO,TIME:FOR PAUSE=0 TO 20:NEn PA

USE:NEXT TIHE:60T0 2730

2700 FOR TII1E=N0 TO N7! SOUND 3,TIME,N8

,N1:F0R PAUSE=1 TO 20:NE.U PfiUSE:NEXT

TIHEsIF BTRIG(N0)=N0 THEN 2730

2710 FOR T1I1E=N7 TO NO STEP -Nl; SOUND

3,TIHE,N8,N1:F0R PAUSE=1 TO 20:NEXT PA

USE:NEXT TIME

2720 IF STRIG(NO) THEN FOR TIME=56 TO

46 STEP -NhSQUND N2,TII1E,N3,N2iFaR PA

USE=! TO 20:NEXT PftUSE:NEXT TIME
2730 SOTO 2590

RELAAAX-

2740 DATA 162,71,24,165,88,105,3,133,2

03, 165,89, 105,0, 133,204, 160, 15,24, 177,

203,42,145,203,136,208,248,24

2750 DATA 165,203,105,20,133,203,144,2

,230,204,202,208,231,104,96

2760 DATA 0,28,62,62,62,62,62,28,62,12

7,255,255,255,255,255,255,0,0,1,3,7,15

,31,62,0,0,224,240,248,252,254,191

2770 DATA 124,120,120,60,30,15,7,3,255

,255,255,255,255,127,127,255,159,135,1

31,128,128,0,0,0

2780 DATA 128,192,224,240.120,88,0,0,1

,0,0,0,0,0,0,0,255,127,127,119,247,247

,247,247,0,0,0,0,128,128,128,128

2790 DATA 247,247,247,227,227,227,227,

227, 128, 128, 128, 128, 128, 128, 128, 128, 1 ,

3,7,7,0,0,0,0,0,128,128,0,0,0,0,0

2800 DATA 192,224,240,112,0,0,0,0,0,0,

255,255,255,255,0.0,195,102,60,24,195,

102,60,24,0,0,0,0,0,0,96,96

2B10 DATA 0,0,0,0,255,255,255,255,0,12

6,4,8,16,32,126,0,56,56,56,255,255,126

,60,24

SWilT

For ATARI® RELAAAX

IM\UI

SWAT

SWAT

LINES

CODE

LENGTH

LINES

CODE

LENGTH

100 - 150

py

503

1410

- 1470

IH

501

160 - 250

vs

529

1480 -

1550

Gl

581

260 - 340

ji

502

1560

- 1630

DO

519

350 - 420

CK

565

1640 -

1700

HR

515

430 - 490

GK

533

1710

- 1790

XM

541

500 - 560

AE

543

1800 -

1870

HI

527

570 - 630

ZD

515

1880

- 1950

ND

539

640 - 700

HX

520

1960 -

2030

SV

517

710 - 770

OF

512

2040

- 2120

OH

512

780 - 840

m

548

2130 -

2210

YY

502

850 - 920

HQ

542

2220

- 2310

EZ

537

930 - 990

XP

550

2320 -

2430

VC

514

1000 - 1080

AA

582

2440

- 2550

CI

469

1090 - 1150

LW

552

2560 -

2670

FT

490

1160 - 1230

FP

534

2680

- 2750

HA

540

1240 - 1320

FH

573

2760 -

■ 2800

MH

502

1330 - 1400

NS

564

2810

- 2810

BM

78

ss ss ss ss ss ss ss ss ss ss ss

ss
ss
ss
ss
ss
ss

ss
ss
ss
ss
ss
ss

Atari BASIC
'Review'
ftuthors: Peter Favaro
Richard H. O'Brien
Copyright © 1983
ss SoftSide Publications, Inc SS
SS SS

SS SS SS SS SS SS SS SS SS SS SS

If you don't wish to type this program, It Is
available on Issue #43 SoftSlde DV and CV.

100 ? CHR«(125):? "INITIALIZING, ONE II

ONENT PLEASE" : N0=0: Nl=l : N2=2: N6=6: N7=7

;NB=8:DIH S«(1024),TXT$(1)

110 A=ADR(S<>:E=lNT(A/512tNl)»N2:CBftSE

=B«256-A+Nl:S$(Nl)=CHRt(NO):S${1024)=C

HRJ(N0):S$(N2)=S»(N1):I1I1=24!NN=31

120 FOR 1=N0 TO 511:St{CBABE+I,CBASE+I

)=CHR*(PEEK(I+57344)):NEXT I

130 RESTORE :FOR 1=N0 TO 41:READ R:PQK

E 16MtI,R:NEXT I:HI1=24:HN=31

140 IF I1N>120 THEN 160

150 FOR 1=«N TO NNiREAD N!S$(I+CBASE,I

+CBASE) =CHR« (N) : NEXT I -.HN^MH+NB: NN=NN+

NB:6QT0 140

160 HI1=20B;NN=215

170 IF MH>256 THEN 190

180 FOR I=I1H TO NN:READ N:S*n+CBASE,I

+CBASEI=CHR$(N):NEXT l!NM=NH+Na!NN=NN+

NBiGOTO 170

190 Nn=464:NN=471

200 IF MH>479 THEN 220

210 FOR I=MM TO NN:REAO N!S«(I+CBASE,I

+CBASE)=CHR$(N) :NEXT I:«N=MH+N8:NN=NN+

NBjGOTO 200

220 REN

230 GRAPHICS IBiPOKE 756,B:P0KE 77, NO:

SETCOLOR N0,NO,N6:P0SITION Nl.NO:? «N6

; "RELAXATION TRAINER"

240 POSITION NljNl:? )tN6;"»>0PTI0NS N

ENU>»":? tN6;" S339333933S9393333':?

«N6i" £ REVIEW SEQUENCE'

250 ? iUi' e ENTIRE PROGRAM":? «N6;'

d DEEP BREATHING":? #N6i" TRAINER':?

«N6i" OCEAN SOUNDS":? »N6
260 ? *N6;" 333333333333333333':? fN6;
" ENTER CHOICE": CLOSE «N1:0PEN INI, 4
,NO,"K":GET «N!,R
270 IF R=ASC('R") THEN CLOSE iNhBOSUB

790:GaT0 310
280 IF R=ASC("E") THEN CLOSE «N1:P0KE
559.N0:RUN •D:RELAX"

290 IF R=ASC("D")

1230

300 IF R=ASC("G")

1430

310 POSITION 2,N1

THEN CLOSE INI: GOTO

THEN CLOSE INI: GOTO

? #N6j "REVIEN SEQUE
NCE":GOSUB 1090:G0SUB 11BO:POSITION NO
,N0:? tN6; "FIRST MUSCLE GROUP '
320 ? IN6; "HANDS BICEPS TRICEPS'
330 60SUB 1090:POSIT10N N8,4:? IN6;"r
:POSITION 10,4:? #N6;"J!":P0SITI0N N8,5
!? #N6;"1":P0SIT!0N 10,5:? SN6;"1»"
340 POSITION NB.Nfc:? «N6;°+;:G0SUB 116
0:GOSUB 1090:GOSUB 1180
350 POSITION N7,N1:? »N6;" HANDS": POSIT
ION N6,5:? »N6j"h":G0SUB 1160:60SUB 11
50

360 60SUB 1090:60SUB 11B0:G0SUB B30:S0
SUB 1090:GOSLIB 1180;G0SUB 1200:80SUB 1
IBO

370 60SUB B40:G0SUB 1090:G0SUB 1180:GO
SUB 1160:G0SUB 1150:G0SUB 830:G0SUB 10
90:G0SUB 11BO:GOSUB 1200:GOSUB HBO

RELAAAX -^

SoftSlde Selections #43

IS

SoftSide Selections #43

RELAAAX

3B0 POSITION N?,N1:? «Ni;"BICEPS":POSI
TION N6,5:? *N6!"b":B0SUB 1090:BOSUB 1
liOiGOSUB 1130

390 SDSUB 1090:60SUB I180:SOSUB 830:60
SUB 1090:BOSUB 1180:G0SUB 1200:G0SUB 1
IBO

400 SOSUB 84(ii60SLIB 1090!6DSUB 1IB0:GD
SUB 1160:G0SIJB 1130:BQSUB BSOsBOSUB 10
90:B0SUB 1180:6DSUB 1200:GOSUB 1180
410 POSITION N6,Nl!? «N6;"TRICEPS":P0S
ITION N6,5:? «N6;"t":B0SUB 1090:G0SUB
lUOiGOSUB 1110

420 eOSUB 1090:60SUB llSOiGOSUB 830:G0
SUB 1090:G0SUB U80:B0SUB 1200!GOSUB 1
130

430 G0SU8 840!BOSUB 1090:60SUB 1180:60
SUB lli0:60SUB 1110:60SUB 830:G0SUB 10
90:60SUB 1180:G0SUB 1200:60SUB 1180
440 GOSUB 790;POSITION 4, NO:? »Nt;'SEC
OND GROUP ": POSIT ION Nl.Nl:? «N6!"F0REH
BAD NOSE MOUTH"

450 GOSUB 1090:POSITION 9,3:7 »Ni;"l_°:
BOSUB 1030:G0SUB 1090:GOSUB 1180
460 POSITION N6,N1:? «N6; "FOREHEAD" :PD
SITION N6.5:? «N6;"f ":60SUB 1030:G0SUB
1040
470 GOSUB lO90:G0SUB 1180:60SUB 830:GQ
SUB 1090:B0SUB 1180:S0SUB 1200:G0SUB 1
180

480 BOSUB 840:G0SUB 1090:GOSUB 1180:60
SUB 1030:GaSU8 1040;G0SUB S30:B0SUB 10
90:B0SUB 11B0:G0SUB 12OO:G0SUB 1180
490 POSITION H8,N1:? »N6|"N0SE':P0SITI
ON N6,5:? IN6;"n»:G0SUB i030!60SUB 105

500 GOSUB 1090;G0SUB nB0:S0SUB 830:G0
sue !090:B0SUB 11B0:G0SUB 1200:G0SUB 1
180

510 SOSUB 840;B0SUB 1090:60SUB 1180:60
SUB 1030:GOSUB 1050:GOSUB 830:G0SUB 10
90:G0SUB 1!80:G0SUB I200:GOSUB 1180

520 POSITION N7,N1:? »N6;"M0UTH":PQSIT

ION N6,5:? «N6;"ib":G0BUB 1030:G0SUB 10

70

530 GOSUB 1090:G0SUB 1180:GDSUB B3O:G0

SUB 1090:GOSUB 1180:G0SUB 1200:GGSUB 1

ISO

540 BOSUB fl40:G0SUB 1090:BOSUB 1180:60

SUB 1030: GOSUB 1070:B0SUB 830: BOSUB 10

90: GOSUB 1180: GOSUB 1200: GOSUB HBO

550 GOSUB 790:POSITION 5, NO:? «N6! "THl

RD GROUP"

560 POSITION 3,N1:? «N6;"NECK SHOULDER
S":POSITION 5,2:? fNi;"flND STQHfiCH"
570 GOSUB 1090: POSITION (18,4:? iU\"1A
r:POSlTION 9,5:? INb;"!!": GOSUB 870:8
OSUB 1090:60SUB 1180
580 POSITION N8,N1;? «N6;"NECK°:PQSITI
ON N6,5:? «N6;"n":G0SUB 870:6DSUB 890
590 GOSUB 1090:GQSUB 1180:GOSUB 830:G0
SUB !090:60SUB 1180:GDSUB 1200:60SUB 1
180

600 GOSUB 840:GOSUB 1090:BOBUB 1180:G0
SUB 870:G0SUB 890:BOSUB 830:B0SUB 1090
:GQSUB 1180:B0SUB 1200:B0SUB 1180
610 POSITION N6,N1:? IN6! "SHOULDERS" :P
OSITION N6,5:? SN6i"5h":60SUB 870:G0BU
910

620 SaSUB 1090;60SUB UB0:60SUB 830:GO

SUB 1090:60SUB 1180:B0SUB nOOsGOSUB 1

180

630 GOSUB 840:G0SUB 1090:GOSUB 1180:G0

SUB 870:B0SUB 910:GGBUB 830:60SUB 1090

■.BOSUB 1180:B0Sm 1200: GOSUB 1180

640 POSITION N6,Nl!? IN6;"ST0MACH":P0B

ITION N6,5!? «N6;"5t"!G0SUB 870:G0BUB

930 ■

650 GOSUB 1090:B0SUB 11B0;60SUB 830;GD

SUB 1090:G0SUB n80:fiOSUB 1200;G0BUB 1

180

660 GOSUB 840:G0SUB 1090:G0SUB 11B0:GD

SUB 870:80SUB 930:G03UB 830!60SUB 1090

iGDSUB 1180:G0SUB 1200JGOSUB 1180

670 GOSUB 790:P0SITiaN 5, NO:? »N6;'LAS

T GROUP ": POSIT ION 4,N1;? #N6i"THIGHS C

ALVES":POSITION N6,2

680 ? «N6;"flND FEET": GOSUB 1090:P0Sni

ON N3,N6:? «N6!"V:";P0SITI0N 9,N7:? «

N6;«^":P0SITI0N N8,HB:? #N6;";;<"

690 GOSUB 950: GOSUB 1090: GOSUB 1180:PO

SITION N7,N1:? »N6;''THI6HS»:P0SIT10N N

6,5:? »N6;"t":G0SUB 950:GOSUB 970

700 60SUB 1090: GOSUB 1180: GOSUB 830:60

SUB 1090:60SUB 1180:G0SUB 1200:GOSUB 1

180

710 GOSUB 840:60SUB 1090:60SUB 1180:60

SUB 950:80SUB 970:G0SUB 830:G0SUB 1090

:60SUB 1180:G0SUB 1200:6flSUB 1180

720 POSITION N7,N1:? «N6;"CALVES":P0SI

TION N6,5:? #N6i"c":G0SUB 950:BOSUB 99

730 GOSUB 1090;G0SUB 1180:G0SUB 830:60

SUB 1090:G0SUB 1180:60508 1200:GOSUB 1

ISO

740 GOSUB 840: GOSUB 1090: GOSUB 11 BO: GO

SUB 950;60SUB 990:G0SUB 830:G0SUB 1090

:GOSUB 1180:60SUB 1200:60SUB 1180

750 POSITION N7,N1:? #N6;"FEET":P0SITI

ON N6,5:? »N6;"f ":60SUB 950:GOSUB 1010

760 GOSUB 1090:G0SUB 1180:G0SUB 830:GO

SUB 1090:G0SUB 11BO:GOSUB 1200:60SUB 1

IBO

770 GOSUB 840: BOSUB 1090; GOSUB 1180:60

SUB 950:60SUB I010:GDSUB 830:60SUB 109

0: GOSUB 11 80: GOSUB 1200: GOSUB 1180

780 GOTO 220

790 REM

800 GRAPHICS !8:P0KE 756,B:SETC0L0R NO

,4,N8:SETC0L0R N1,4,N6:SETC0LDR 2,N0,N
6:P0SITI0N 9,3:? #N6i"r'
BIO POSITION N8,4;? »N6;"Z$4":P0SITI0N

N8,5;? #Nfc;"'()t":P0SITION N8,N6:? #N
6;"+.-':P0SlTI0N 9,N7:? «N6;"./'
820 POSITION N8,NB:? »N6; ":;<'':POSITIO
N Ni,ll:? »N6; '====^=======3====3" ; ret

URN

330 POSITION N7,N1:? «N6;"TENSE":RETUR

N

340 POSITION N7,N1:? SN6! "REPEAT" :RETU

RN

850 POSITION Nl.Nl:? »N6!"REPEftT THE":

? »N6:? #N6i" TENSION' :? »N6:? »N6i°_R_

ELAXATION":? «N6:? »N6;" CYCLE? »

#N6;" TENSE 5 SECB?':RETUR

tN6:

860

N

870 FOR DC=15 TO Nl STEP -Nl: SOUND NO,

217,10,DC:S0UND Nl,144, 10,DC:F0R PSE=N

1 TO 5:NEXT PSE:NEXT DC

880 SOUND NO,NO,N0,N0:SOUND N1,NO,NO,N

0:RETURN

890 FOR DC=15 TO Nl STEP -Nl: SOUND NO,

108, 10, DC: SOUND Nt,72, 10,DC:F0R PSE=N1

TO 10:NEXT PSE:NEXT DC
900 SOUND NO, NO, NO, NO: SOUND N1,N0,N0,N
0: RETURN
910 FOR D=N1 TO 2:F0R DC=15 TO Nl STEP

-N1:S0UND NO,108,10,DC:SOUND Nl,72,10
, DC: FOR PSE=NI TO 10: NEXT PSE

RELAAAX

SoftSide Selections #43

17

SoftSide Selections #43

«0 NEXT DC:NE.U DsSOUND NO.NO.NO.NOsS

OUND Nl, NO, NO, NO: RE TURN

930 FOR D=N1 TO 3:F0R DC=15 TO Nl STEP

-NhGOUND N0,108,10,DC:S0UND Nl,72,10
,DC:FQR PS£=N1 TO 10:NEU PSE
940 NEXT DC:NEXT D:50UND NO,NO,NO,N0:S
flUND Nl,NO,N0,N0:RETURN
950 FOR DC=15 TO Nl STEP -Ni:SOUND NO,
243,10,DC:S0UND N1,193,10,DC:F0R PSE=N
1 TO 10:NE!(T PSE:NEXT DC
960 SOUND NO,N0,NO,NO:S0UND HI, NO, NO, N
0: RETURN

970 FOR DC=15 TO Nl STEP -Nl: SOUND NO,
12!,10,DC:S0UND N1,96,10,DC:F0R PSE=N1

TO 10:NEXT PSE:NEXT DC
980 SOUND NO, NO, NO, NO: SOUND N1,N0,N0,N
0: RETURN
990 FOR D=N1 TO 2:F0R DC=15 TO Nl STEP

-NhSOUND NO, 121, 10, DC: SOUND Nl,96,10
,DC:FDR PSE=N1 TO 10:NEXT PSE
1000 NEXT DC:NEXT D:SOUND NO,NO,NO,N0:
SOUND N1,NO,NO,NO:RETURN
1010 FOR D=N1 TO 3:F0R DC=15 TO Nl STE
P -NlrSOUND NO,121,10,DC:SOUND Nl,9i,l
0, DC; FOR PSE=N1 TO 10: NEXT PSE
1020 NEXT DC:NEXT DiSOUND NO, NO, NO, NO:
SOUND N1,NO,NO,NO:RETURN
1030 FOR DC=15 TO Nl STEP -NhSOUND NO
,217,10,DC:F0R PSE=N1 TO 10;NEXT PSE:N
EXT DC: SOUND NO, NO, NO, NO: RETURN
1040 FOR DC=15 TO Nl STEP -Nl; SOUND NO
,53,10,DC:F0R PSE=N1 TO 10:NEXT FS£:NE
XT DCrSOUND N0,NO,NO,N0:RETURN
1050 FOR D=N1 TO 2:F0R DC=15 TO Nl STE
P -N1:S0UND N0,53, 10,DC;F0R PSE=N1 TO
10;NEXT PSE: NEXT DC
1060 SOUND N0,N0,N0,N0:NEXT 0:RETURN
1070 FOR D=N1 TO 3:F0R DC=15 TO Nl STE
P -NhSOUND N0,53,10,DC;F0R PSE=N1 TO
10:NEXT PSE:NEXT DC

1080 SOUND NO,NO,N0,NO:NEXT D:RETURN

1090 ST=STICK(NO):IF ST=15 THEN 1090

1100 FOR PSE=N1 TO 100: NEXT PSE: POKE 7

7, NO: RETURN

IJJO fm V=Hl JO 3:F0R DC=15 TO Nl STE

P -NhSOUND N0,29,10,DC;F0R PSE=N1 TO

10;NEXT PSErNEXT DC

1120 SOUND N0,N0,N0,N0:NEXT D:RETURN

- RELAAAX

U

1130 FOR D=N1 TO 2:F0R DC=15 TO Nl STE
P -NhSOUND N0,29,10,DC;F0R PSE=N1 TO
10:N£XT PSE:NEXT DC
1140 SOUND N0,N0,N0,NO:NEXT D:RETURK
1150 FOR DC=15 TO Nl STEP -NhSOUND NO
,29,10,DC:F0R PSE=N1 TO 10:NEXT PSE:NE
XT DC:SDUND N0,N0,N0,N0:RETURN
1160 FOR DC=15 TO Nl STEP -NhSOUND NO
,121,10,DC:FOR PSE=N1 TO 10:NEXT PSE;N
EXT DC: SOUND NO, NO, NO, NO: RETURN
1170 FOR DC=15 TO Nl STEP -NhSOUND NO
, 50,10, DC:FQR PSE=N1 TO 10:NEXT PSE:NE
XT DC:SOUND NO,NO,NO,NO:RETURN
1180 FDR BL=NO TO 2:P0SITI0N NO,BL:? I
N6;" ";NEXT BL:RE

TURN

1190 ? »N6;CHR$( 125): RETURN
1200 POSITION N7,Nh? «N6; "RELAX"
1210 N=N6:F0R DELftY=Nl TO 900:SETCOLOR
2, NO, N; IF DELftY=300 OR DELflY=600 OR D
ELftY=750 THEN N=N-2
1220 SETCQLOR 2,N0,N:NEXT DELflYsBETCOL
OR 2, NO, N6: RETURN

1230 GRAPHICS N6:DX=31:DY=35:C0LOR Nh
PLOT 26,Nl:DRAIflT0 31,N1:DRAWT0 31,70:D
RAWTO 26,70:P0KE 53277, N2
1240 X=NhY=NhTXT$='E":60SUB 1330
1250 X=N1:Y=50;TXT$=T:G0SUB 1330
1260 ST=STICK(NO):TR=STRIB(NO)
1270 IF ST=15 AND TR=NO THEN 220
1290 IF ST=13 THEN DX=DX+N1:IF DY<70 T
HEN DY=DY+N1

1290 IF ST=14 THEN DX=DX+N1:IF DY>N1 T
HEN DY=DY-N1

1300 IF ST<13 OR ST=15 THEN 1260
1310 PLOT DX,DY:IF DX<150 THEN FOR PSE
=N2 TO N6:NEXT PBE:80T0 1260
1320 IF DX>149 THEN R=USR(1664):DX=149
:G0TO 1260

1 330 SA=PEEK ( 89 ) 1 256+PEEK ( 88 ) : HODE=PEE
K(97):IF H0DE=N6 THEN C0LS=20:R0IIS=96
1340 IF Y>RO«S OR X>CDLS THEN RETURN
1350 START=SA+Y»COLS+X:60SUB 1400
1360 CHARSET= (PEEK (756) >256) + (E3»N8)
1370 FOR E2=N7 TO NO STEP -Nh.POKE STA
RT+E2«C0L5, PEEK (CHARSET+E2) : NEXT E2
!3fl0 X=X+N1:IF X>COLS THEN START=START
+C0LS»NS:X=N0
1390 STARr=STARH-NhRETURN

1400 E3=ASC(TXTt):IF (E3<32) OR (E3>12

7 AND E3<160) THEN E3=E3+64:RETURN

1410 IF E3>31 fiND E3<96 THEN E3=E3-32

1420 RETURN

1430 GRAPHICS NOtSOUND N0,33,N8,N1:PQK

£ 53277, N2:PDKE 53277,4!P0KE 710,112

1440 POKE 752, Nl:? ;FDR TIMES=N1 TO 50

:D=INT(RND(NO)«39+N1I:R=INT(RND(NO)»22

+N1)!C0LQR 46:PL0T D,R:NEU TINES

1450 IF STRI6(N0)=N0 THEN FOR R=NO TO

3;S0UND R,NO,NO,NO:NEXT R:GOTO 220

1460 R=INT(RNBtN0)»5tNl)

1470 IF R=N1 THEN 1520

1480 IF R=N2 THEN 1530

1490 IF R=3 THEN 1540

1500 IF R=4 THEN 1560

1510 IF R=5 THEN 1580

1520 FOR TIKE=4 TO NO STEP -Nl: SOUND N

2,49,N0,TI«E:F0R PAUSE=1 TO 180:NEXT P

AUSE:NE!(T TI(1E:60T0 1590

1530 FOR TIME=NO TO 118-. SOUND N2,TII1E,

N8,N1;F0R PAUSE=1 TO 20:NEn PAUSE:NEX

T TII1£;BOT0 1590

1540 FOR TII1E=N0 TO 15!S0UND 3, 10, NO, T

1HE;FDR PAUSE=1 TO 20:NEXT PAUSE:NEXT

TIME! IF STRIG(NO)=NO THEN 1590

1550 FOR TIME=15 TO NO STEP -NhSOUND

3,10,N0,TIHE:FQR PAOSE=0 TO 20:NEXT PA

USE:NEXT TI11E:60T0 1590

1560 FOR TIHE=NO TO N7:S0UND 3,TIME,N8

,N1;F0R PAUSE=1 TO 20:NEXT PAUSE:NEXT

TIME: IF STRIG(NO)=NO THEN 1590

1570 FOR TII1E=N7 TO NO STEP -Nl: SOUND

3,TII1E,N8,N1:F0R PAUSE=1 TO 20:NEXT PA

USEiNEXT TIME

1580 IF STRIGiNO) THEN FOR TI«E=56 TO

46 STEP -NhSQUND N2,TI«E,N8,N2!F0R PA

USE=1 TO 20: NEXT PAUSE: NEXT TIHE

1590 GOTO 1450

1600 DATA 162,71,24,165,88,105,3,133,2

03,165,89,105,0,133,204,160,15,24,177,

203,42,145,203,136,208,248,24

1610 DATA 165,203,105,20,133,203,144,2

,230,204,202,208,231,104,96

1620 DATA 0,28,62,62,62,62,62,28,62,12

7,255,255,255,255,255,255,0,0,1,3,7,15

,31,62,0,0,224,240,248,252,254,191

1630 DATA 124,120,120,60,30,15,7,3,255

,255,255,255,255, 127, 127,255, 159,135, 1

31,128,128,0,0,0

1640 DATA 128,192,224,240,120,88,0,0,1

,0,0,0,0,0,0,0,255,127,127,119,247,247

,247,247,0,0,0,0, 128, 128, 128, 128

1650 DATA 247,247,247,227,227,227,227,

227,128,128,128,128,128,128,128,128,1,

3,7,7,0,0,0,0,0,128,128,0,0,0,0,0

1660 DATA 192,224,240,112,0,0,0,0,0,0,

255,255,255,255,0,0,195,102,60,24,195,

102,60,24,0,0,0,0,0,0,96,96

1670 DATA 0,0,0,0,255,255,255,255,0,12

6,4,8,16,32,126,0,56,56,56,255,255,126

,60,24

SWAT

J

i

For ATARI® REVIEW

TilKIJ^

1

LINES

SWAT
CODE

LENGTH

SWAT
LINES CODE

LENGTH

100 - 17C

QX

517

860 - 940

Lfl

517

180 - 260

CE

530

950 - 1030

HL

561

270 - 360

CL

556

1040 - 1130

HY

517

370 - 420

XT

501

1140 - 1230

EH

583

430 - 490

IR

555

1240 - 1350

JL

451

500 - 560

YF

533

1360 - 1470

FD

483

570 - 630

BK

576

1480 - 1570

QY

519

640 - 690

VW

509

1580 - 1640

!K

544

700 - 760

PC

551

1650 - 1670

EH

282

770 - 850

DS

510
RELA

AAX

SoftSide Selections #43

19

SoftSide Selections #43

20

Chemistry
Assistant

by Art V. Cestaro III

Chemistry Assistant is an educational aid for an Atari® with 24K RAIM.

Chemistry Assistant is for everyone in a chemistry course who hates to look
up the more commonly used formulas. For example, do you remember the for-
mula to change grams to moles, or the one to find density? This program does
it for you, along with other common chemical problems, such as finding
molecular weight, converting temperatures, and metric conversions.

The main menu lists all the functions the program can perform. To choose
one, type the number of the function you desire, and press the Return key. If
you see the message "Try again," you entered an incorrect numeral. The
screen indicates your choice, and asks you to confirm it (answer YES or NO).
The program goes to the appropriate function, and prompts you for the infor-
mation it needs. You may return to the menu by typing "M" when the com-
puter asks if you want to continue or go back to the menu.

Functions

• 1. View Element

This shows you how a particular element appears in the periodic table. Enter
the symbol for the element you wish to view. For example, enter "AU" for
gold.

• 2. Grams to Moles

To compute the number of moles from the number of grams, enter the ele-
ment and the number of grams. Here is the formula:

#grams x 1 mole
atomic weight

• 3. Moles to Grams

To find the number of grams from the number of moles, enter the element
and the number of moles. The formula is:

#moles X atomic weight

1 mole

• 4. Molecular Weight

Tell the program the number of different elements in your molecule, the
name of each element, and the number of atoms of each. For example, take
the molecule C2Hg02. First enter 3, the number of different elements in the
molecule (C, H, and O). Then, enter the first element, "C," and the number
of C atoms, 2. Repeat this for the other atoms in the molecule.

• 5. Density

This function calculates the density of an object. Enter its mass and volume.
The formula is:

mass

volume

• 6. Degrees (Temperature)

Enter the conversion you want by pressing "F" for Fahrenheit to Celsius, or
'C" for Celsius to Fahrenheit. The formulas are:

C°= (F°-32) X 5

F° = (9 X C°) + 160

• 7. Molarity

To find a solution's molar concentration, enter the number of moles of
solute, then enter the number of liters of solution. The molarity formula is:

number of moles of solute

number of liters of solution

Which weighs the most — a pound of
lead or a pound of feathers?

SoftSide Selections #43

-CHEMISTRY ASSISTANT

SoftSide Selections #43

Transverse wave.
• 8. Molality

To find the molal concentration of a solution, enter the number of moles of
solute, and the number of kilograms of solvent. Here's the formula:

moles of solute

kg of solvent

• 9. Metric Conversion

Several calculations are included under this heading. Choose the function
you want by typing the corresponding numeral, then enter the information the
computer requests.

• 10. Percent Difference

This function calculates the percent difference between two numbers. Enter
the experimental value and the accepted value. The formula:

I experimental value-accepted value |
accepted value

X 100%

• 11. Wavelength of Light

To calculate the wavelength of light, enter its frequency. The formula for
wavelength:

wavelength =

speed of light
frequency

• 12. Relative Error

To find the relative error of a measurement, enter the absolute error, then
enter the measurement. The formula is:

absolute error

measurement

• 13. Exit program
Good bye!

Note: Readers wishing to contact the author may write to him at the following
address:

Art V. Cestaro in

PO Box 367

N. Eastham, MA 02561

by Jerry P. Waid

Math Quiz is an educational program for an Atari® with at least 16K
RAM.

The fun begins as the program title appears on the screen in a rainbow of
color. Your child begins playing by choosing the number of problems to solve.
Too few or too many problems result in a witty response from the computer.
Next, the child selects the type (any of the four arithmetic functions), and level
of difficulty. For multiplication, he may choose between random problems or
practice on the multiplication tables.

The problems appear on the screen in graphics mode two to provide a large
color display. At the bottom of the screen is an area for entering responses.
The computer displays both the problem and the student's answer. Several dif-
ferent responses inform your youngster whether the answer is correct. The ap-
proach is friendly and encouraging, rather than punitive. An incorrect
response results in another chance to try the problem.

Although the program imposes no time limit that might discourage a child,
it does record correct first responses. After completing the selected number of
problems, the child receives a rank, such as "You need more practice" or
"Genius," while the computer plays a well-known tune.

At the end of each drill, your child may choose to repeat the drill at the same
level, or may make changes in the level and type of problem.

MATH QUIZ -

SoftSide Selections §43

23

SoftSide Selections #43

24

MATHQUIZ-

ss ss ss ss ss ss ss ss ss ss ss
ss ss

ss Atari BASIC SS

SS "Hath Quiz' SS

SS Author: Jerry P. Kaid SS
SS Copyright © 1983 SS
SS SoftSide Publications, Inc SS
SS SS

ss SS SS SS SS S5 ss SS SS SS SS
If you don't wish to typo tills program, It Is
available on Issue #43 SoltSlds DV and CV.

Initialization.

10 SRflPHICS 7+16!P0KE 16,64:P0KE 53774

,64

20 Din R!t(35),R2»ilO),R3*(10),R4»(10!

,R5$i25),U$(l),2$(3),I$(l)

40 DIH D$(3),CUP«(32).CD0NN*(32),CL$(3

8)

50 CL1i="

55 N752=752:NO=0:N1=!

Call the machine language

subroutine for the title page.

60 SOSUB 1800
Main program loop.

70 GRAPHICS 0:POK"E 16,64!P0KE 53774.64
80 Q=0:C=0

90 POKE 16,64:F0KE 53774, 64: PRINT ")"
Print graphics mode 1 on a graphics
mode screen.

100 DL=PEEK(560)+PEEK(561)t256:PQKE (D

L+A;i,6:P0KE (DL+7),6

110 PRINT 'LET'S TEST YOUR HATH

SKILL."

Select how many problems to do.
120 PRINT ;PRINT
130 TRAP 90

140 PRINT "HOK HANV PROBLEMS "
150 PRINT ■ DO YOU WANT TO SOLVE

';: INPUT i

160 IF J<10 THEN 180
170 SOTO 200

180 GRAPHICS 1+16:P0KE 16,64:P0KE 5377
4,64;PRINT »6:PRINT #6:PRINT «6!PRINT
#6;" YOU MUST BE "
190 PRINT »6;" IN A HURRY 'll'iPRINT

#6;PRINT «6;' TRY AT LEAST 10 ":FOR

H=l TO !200:NEn H:GRAPHICS 0:G0TO 90
200 IF J>30 THEN 220

210 GOTO 240

220 GRAPHICS 1+16:P0KE 16.64:P0KE 5377
4,64:PRINT it6:PRINT I6:PRINT «6:PRINT
#6 J* I HAVE ALL DAY,"
230 PRINT 16; " BUT H0« ABOUT YOU ?":PR
INT «6:PRINT «6i" KEEP IT TO 30':F0R
H=l TO 1200:NE.U H:6RAPHICS 0:GOTO 90
240 POSITION 2,8:PRINT CLt:P0SITION 2,

a

Select the type of math problem to
do.

250 PRINT "INPUT - A=ADD S=SUB I1=MULT

D=DIV;: INPUT Ut
260 IF U»<>"A" THEN IF UtO'S" THEN IF

U$<>"I1" THEN IF U$<>"D" THEN 240
270 IF IMYr THEN 330
275 POSITION 2,12;PRINT CL$
280 POSITION 2.10:PRINT "INPUT 'T' FOR

MULTIPLICATION TABLES":PRINT
290 PRINT "INPUT 'W FOR RANDOM NUMBER
S";:INPUT It:IF I$<>"T' THEN IF I*<>"R
" THEN 270

300 IF I*<>"T" THEN 330
310 POSITION 2,16:PRINT CL$:POSIT!ON 2

,14:PRINT "INPUT MULTIPLICATION TABLE
NUMBER"

315 TRAP 310

320 PRINT : PRINT "EXAMPLE '2' GIVES 2X

="i! INPUT A:PRINT iPRINT

330 REM INCORRECT INPUT (DO NOT DELETE

)

input siciii level.

340 TRAP 330

350 POSITION 2,18;PRINT CLt:POSITION 2

,18:PR1NT "INPUT YOUR SKILL LEVEL 1,2,

3";: INPUT S

360 IF S=l THEN T=10

370 IF S=2 THEN T=20

380 IF S=3 THEN T=80

390 IF S(l OR S>3 THEN 350

Initialize the question counter and

the correct response counter.

400 Q=0:C=0

410 PRINT "}°

420 Q=e+i

Do not generate the variable A for

multiplication tables.

430 IF !$="T" THEM 450

Generate the variables A and B for
matti equations.

m LET A=(INT(TIRND!l)))+l!lF S>1 THE

N fl=A+10

450 LET 8=(INT(T»RND(1)))+1:IF S>1 THE

N B=B+10

Branch to the appropriate

subroutine for the type of problem.

460 IF U$="ft' THEN 60SUB 1000

470 IF U<="S" THEN BOSUB 1200

480 IF U$="N" THEN GOSUB 1400

490 IF U$="D" THEN 60SUB 1600

Score Incorrect responses.

500 C=C-2

Respond to Incorrect answers.

510 PRINT CHR<(253)

520 LET R=INT(3»RND(1))+1

530 SETCOLOR 2,3,2

540 ON R SOTO 550,570

550 PRINT " Hum... I GET fl DIFFERENT

ANSHERII";? :FOR H=l TO SOOsNEXT H:IF

U$="D' THEN 1620
560 GOTO 460

570 PRINT " TRY A DIFFERENT ANSWER. G
ODD LUCK!":? :FOR H=l TO BOO: NEXT H:IF

Ll*="D" THEN 1620
580 GOTO 460

Respond to correct answers.
590 LET R=INT(3tRND(l))+l
600 SETCOLOR 2,12,2:PRINT
610 ON R GOTO 620,630,640
620 PRINT " RIGHT ON... GOOD NORKll!
•:? :FOR H=l TO 400:NEXT H:GOTO 650
630 PRINT ' YOU GOT ITI TRY ANOTHER
.":? :FOR H=l TO 400: NEXT H:60TO 650
640 PRINT " THAT'S GREAT! KEEP IT U
PI":? :F0R H=) TO 400:NEXT H:GOTO 650
650 C=C+1

Score correct answers, and deter-
mine If all the problems requested
have been worked.
660 IF Q<J THEN 420
Provide rank based on correct
answers.

670 GRAPHICS 2fl6;P0KE 16,64:P0KE 5377
4,64

680 RESTORE : PRINT 16
690 PRINT I6:PRINT «6
700 Rl$=" YOU NEED MORE PRACTICE! ■
710 R2t="N0VICE'

-MATH

720 R3»="EXPERT"

730 R4$=»GENIUS"

740 R5«='Y0UR RANK IS.."

750 IF C<(J-5) THEN PRINT ♦6!R5$!R1«

760 IF C=(J-4) THEN PRINT l6iR5«;R2»

770 IF C=(J-3) THEN PRINT «6!R5$;R2»

780 IF C=(J-2) THEN PRINT »6;R5$;R3$

790 IF C=(J-1I THEN PRINT t6;R5»;R3«

800 IF C=J THEN PRINT «6sR5t;R4«

810 FOR 1=1 TO 700: NEXT I

Option selection for the next pass

through the program.

820 GRAPHICS 1:P0KE 16,64!P0KE 53774,6
4

830 PRINT #6; "WELL IT'S TIME":PRINT #6
;" TO DECIDE .":PRINT t6

840 PRINT 116; "IF YOU WANT TO 60"
850 PRINT (16; "AGAIN AT THE SAME':PRINT
#6; "SKILL LEVEL OR HODE"
860 PRINT «6:PRINT »6i"TYPE..'A'"
870 PRINT 16: PRINT #6; "IF YOU WANT TO"
:PRINT «6j "CHANGE NODE OR "
890 PRINT t6i"SKILL LEVEL":PR1NT «6:PR
INT #6; "TYPE.. 'C'"

900 PRINT :POKE N752,N0:PRINT " WHAT
IS YOUR DESIRE ';: INPUT Z$;POKE N752,N
1

910 IF Z*<>"A" THEN IF 2»<>"C" THEN 82

920 RESTORE

930 GRAPHICS 0:POKE 16,64;P0KE 53774,6
4: IF Zt="A" THEN 400
940 I1="R":G0T0 80
950 POKE 16,192:P0KE 53774,192
Addition subroutine.
960 END

999 REM ADDITION

1000 PRINT "}"
1010 TRAP 1000
Display problem.

1020 GRAPHICS 2:P0KE 16,64:P0KE 53774,

64

1030 PRINT ♦6:PRINT #6

1040 PRINT »6i" »■

1050 PRINT »6;" ";Q,

1060 IF A<10 THEN PRINT #6)" ";

1070 PRINT 16; " ■;A

1080 PRINT 16;" ",

1090 IF B<10 THEN PRINT 16;" ";

QUIZ

SoftSlde Selections #43

25

SoftSide Selections #43

26

1100 PRINT l6;»t";B

UIO PRINT l6;/__/

1120 POSITION 11 ,7: PRINT It;" ?"

Get answer.

1130 PRINT jPOKE N752.N0JPR1NT " WH

AT IS YOUR ANSWER ";: INPUT DiPOKE N752

,N1

IMO POSITION 10,7:IF D<10 THEN PRINT

«6;" "i

1145 IF D>99 THEN PRINT «6;D!B0T0 1160

1150 PRINT 1(6;" ";D

1160 PRINT :1F D=ft+B THEN 590

1170 RETURN

Subtraction subroutine.

1199 REN SUBTRACTION

1200 PRINT ">"
1210 TRAP 1200

Ensure that A is greater than B.

1220 IF A>Ei THEN 1250

1240 A=A+B

Display problem.

1250 GRAPHICS 2:P0KE 16,64:P0KE 53774,

64

1260 PRINT 1I6:PRINT «6:PRINT )t6!" «"

1270 PRINT «6i* ";Q,

1280 IF A<10 THEN PRINT «6;" ";

1285 IF A>99 THEN PRINT «6iA:60T0 1300

1290 PRINT «6;" ";A

1300 PRINT »6;» ',

1310 IF 6<10 THEN PRINT 16;" ».;

1320 PRINT «6;'-"iB

1330 PRINT «6;, ".___"

1340 POSITION 11,7:PRINT ♦6;' ?"

Get answer.

1350 PRINT :POKE N752,N0:PftINT " WH

AT IS YOUR ANSWER ";: INPUT DjPQKE N752

,N1

1360 POSITION 11,7:IF D<10 THEN PRINT

#6!" ";

1370 PRINT «6;D

1380 PRINT :IF D=A-B THEN 590

1390 RETURN

Multiplication subroutine.

1399 REN MULTIPLICATION

1400 PRINT ■'}"
1410 TRAP 1400
Display problem.

1420 6RAPHICS 2:P0I';E 16,64:P0KE 53774,

64

1430 PRINT #6;PR1NT «6:PRINT *6!" »"

-MATHQUIZ-

1440 PRINT «6!' "jQ,

1450 IF B<10 THEN PRINT »6;" "i

1460 PRINT 16; ■ ";B

1470 PRINT »6;" ",

1480 IF A.:. 10 THEN PRINT U;' "j

1490 PRINT »6;"X ";A

1500 PRINT «6;," "

1510 POSITION 12,7!PRINT «6;" ?"

Get answer.

1520 PRINT :POKE N752,N0!PRINT " WH

AT IS YOUR ANSWER ";: INPUT DjPOKE N752

,N1

1530 POSITION 11,7:1F D<10 THEN PRINT

«6;" ";

1540 IF D>99 THEN PRINT I6|D!G0T0 1560

1550 PRINT «6;" ";D

1560 PRINT !lF D=A»e THEN 590

1570 RETURN

Division subroutine.

Ensure that A Is divisible by B.

1599 REM DIVISION

1600 A=B»(INTU0»RND(1))+1)
1610 PRINT "}"

Display problem.

1620 TRAP 1610

1630 GRAPHICS 2:P0K:E 16,64:P0KE 53774,

64

1640 PRINT »6:PRINT «6:PRINT #6;" «"

1650 PRINT «6;' ";Q;' "jAiViB;"

1660 POSITION 16,3;PRINT it6;"?"

Get answer.

1670 PRINT jPOKE N752,N0:PRINT » WH

AI IS YOUR ANSWER "j: INPUT D:POKE N752

,N1

1680 POSITION 16,3:PRINT «6!D

1690 PRINT :IF fi=A/B THEN 590

1700 RETURN

Set up program title.

1799 REN PRINT KATH QUI!

1300 NS=4:NT=15

Machine language subroutine for

rainbow effect.

1810 GOSUe 4000

Print "Math Quiz" In graphics Mode

7.

1820 60SUB 2000

Create the rainbow effect.

1830 FOR 1=1 TO lOOiNEXT I

1840 SETCOLOR 0,12,6

1850 RESTORE

1B60 CUP»(15,15)=CHR»(22)

1870 X=USRIADR(CUP»),NS)

1880 CUP*(15,15)=CHR«(26)

1890 X=USR(ADRICUP«),NS)

1900 SETCOLOR 0.3,4

1910 CD0«N1(15,15)=CHR$(26)

1920 X=USR(fiDR(CDOHN»),NS)

1930 SETCOLOR 0,7,2

1950 RETURN

Plot "Math Quiz."

1999 REM PRINT HftTH QUIZ

2000 BRAPHICS 7:P0KE I(i,64:P0KE 53774,
44

2020 SETCOLOR 0,0,0! SETCOLOR hO.HiSE

TCOLQR 2, 0,0: SETCOLOR 4,0,0

2030 COLOR 2:FC0L0R=1

2040 RESTORE 2010

Display author's name on the title

page.

2060 DL=PEEKi560)+PEEK(56l)»256

2070 POKE IDL+85),70:P0KE (DLt88),7;P0

KE (I)L+89),7!P0KE (DL+90),7

2090 PRINT " BV J

.P. MAIO"

Plot "Math Quiz."

2100 READ D$!lF ASCiD$)<64 THEN 60TC 2

180

2110 IF DJ^-P" THEN READ ROW,C0LU(1N:G0

SUB 2190:PL0T COLUMN, ROHiGOTO 2100

2120 IF D$="0° THEN READ R0RI6IN,C0RIG

1N:80T0 2100

2130 IF D$="END" THEN RETURN

2140 IF D*<>'F' THEN 6QTG 2100

2150 READ ROM, COLUMN: GOSUB 2190!P081T]

ON COLUMN, ROW: POKE 765.FC0L0R

2160 "XIO 18,I6,0,0,"S:»:PL0T COLUMN, RO

N:60T0 2100

2180 ROH=VAL(Dt):READ COLUHN:a05UB 219

0:DRAWTO COLUMN, ROW: GOTO 2100

2190 ROW=R0W+ROR I GIN : COLUMN=COLUMN+COR

1G1N:RETURN

2999 REM PRINT MATH QUIZ

3000 REM "M"
3010 DATA 0,1,20

3020 DATA P, 32, 24, 0,24,0, 20, F, 12, 12,0,
4,0, 0,P, 32, 24, 32, 17, F, 16, 17, 23, 12, F, 16

,7,32,7,32,0,F,0,0
3040 REM -A"

3050 DATA 0,1,50

3060 DATA P,32,24.0,14,P,!4,13,F,IO,12

,14,n,F,l4,13,P,32,24,32,17,F,20,13,2

0, 11, 32,7, 32, 0.F, 0,10, 0,14

3100 REM "T"

3110 DATA 0,1,80

3120 DATA P,0,0,0,24,7,24,7, 16,32, 16,3

2,8,F,7,8,7,0,F,0,0

3140 REM "H"

3150 DATA 0,1,110

3160 DATA P, 32, 24, 0,24,0, 17, F, 14, 17, 14

, 7, 0,7,P, 32, 24,32,17,F, 20, 17,20,7,32,7

,32,0,F,0,0,0,7

3200 REM "Q"

3210 DATA 0,40,20

3220 DATA P, 34, 21, 32, 20, 28, 24, 4, 24, 0,2

0,0,4,P,23,9,23,14,25,15,25,17,P,23,9,

F, 25, 10, 25, 7, 7, 7, F, 7, 17, F, 25, 17

3230 DATA P, 34, 21, 34, 16, F, 32, 15, 32,4, F

,28,0,F,4,0,F,0,4

3240 REM "U"

3250 DATA 0,40,50

3260 DATA P, 0,24, 28, 24, 32, 20, 32, 4, P,0,

24,0,17.F,25,17,25,7.0,7.0,0,F,28,0,F,

32,4

3300 REN "I"

3310 DATA 0,40,80

3320 DATA P, 32,0,32,24,25, 24, 25, 16.7,1

6,7,24,0,24,0,0,F,7.0.7,8,F,25,8,25,0,

F,32,0

3340 REM "Z"

3350 DATA 0.40.110

3360 DATA P, 32, 0,32, 24, 23, 24, 23, 17, F, 2

5. 17, 25. 10, 7, 24, 0,24, 0,0, P, 32, 0.F, 25,0

,F,7,14,7,7,9,7,9,0,F,0,0

3500 DATA END

Read data for the rainbow effect.

3999 REN MACHINE SUB DATA

4000 RESTORE 4100
4005 FOR 1=1 TO 32

4010 READ C:C.UPt(I)=CHR*(C)

4020 NEH I

4030 CD0tlN*=CUP$!CD0WN$(12,12)=CHRt(22

9)

4040 RETURN

4100 DATA 104

4110 DATA 104

4120 DATA 104

4130 DATA 72

MATH QUIZ-

SoftSide Selections #43

27

4140 DATA 162

57

4220 DATA 202

4150 DATA 160

4230 DATA 208,237

4160 DATA 173

0,210

4240 DATA 104

4170 DATA 101

20

4250 DATA 56

4180 DATA 141

22,208

4260 DATA 233,1

4190 DATA 141

10,212

4270 DATA 208,223

4200 DATA 136

4280 DATA 96

4210 DATA 208,242

SWAT fgi

For ATARI® MATH QUIZ TilKLK ^mM

SWAT

SWAT

UNES

CODE

LENGTH

LINES CODE LENGTH

10 - 100

YO

501

1285 - 1390 XQ

334

no - 220

UN

565

1399 - 1500 DK

305

230 - 310

AV

527

1510 - 1630 OA

350

315 - 420

«p

355

1640 - 1830 UI

335

430 - 540

HJ

343

1840 - 1999 KL

276

550 - 640

VS

519

2000 - 2140 QS

503

650 - 760

ON

309

2150 - 3100 VW

420

770 - 890

KP

548

3110 - 3260 BE

448

900 - 1030

FO

324

3300 - 4020 XC

313

1040 - 1145

PS

365

4030 - 4190 NV

164

1150 - 1280

SR

261

4200 - 4280 KK

93

SoftSide Selections #43

-MATHQUIZ-

28

Tired of Typing?

• Use And Enjoy These Programs Right
Away!

• Avoid Worry About Typos!

• Get Additional Programs to Enjoy
Without Typing.

Order this Issue's Programs on Disk or Cassette

Send the coupon below to:

SoftSide Publications, Inc.

10 Northern Blvd.

Northwood Executive Park

Amherst, NH 03031

^\f :3^yf

$offS?^ P Selections

ORDER THIS ISSUE'S MEDIA

Having difficulty finding tfie time to input the programs
from this issue of SoftSide Selections^ Don't despair — the
cassette and disk versions are still available! And, each DV
(disk version) contains an additional program

D #43 DV $16.00 D #43 CV $8.00

Difk Only: D Apple" D IBM* PC

Dlik or Caucttc: D Atari* D TRS-80* Mod. I D TRS.80* Mod. Ill

Name

Address ^^_^^

City/State

-^ip-

D Check or Money Order

D MasterCard D VISA
Name of Cardholder

A_sat5?ae.

_5ilectionj

'^Chemistry
Assistant

HELAAAX.^, i';

1 High
fschool

MC# or lnterbank#/VISA#

Exp. Date Signature

Prices subject to change without notice, Apple", IBM*, Atari* and TRS-80* are registered trademarks of The Apple Computer
Company, International Business Machines, Inc., Warner Communications, and The Tandy Corporation respectively.

SoftSide Selections #43

r

o •

30

o

o

o

o

oftSid

O

o

o

o

o

Issue 43 Adventure:
High School

Who said that going to
high school Is not an
adventure? You must go
to all your classes, and
complete all the ac-
tivities before earning
credit. Satisfy your
teachers' requirements,
pass six subjects, and
graduate. Don't get
suspended too often, or
you might get expelled!

SoftSide Adventure Series =^V ^^V

What would you say to a program that asks, "What do you want to do?"
Well, you might say, "GET RUBY" or KILL GIANT", because that's how
the SoftSide Adventure Series works.

Each issue, the latest Adventure takes you to another world of fantasy,
puzzles, and thrills. Your first task is often simple survival — and even that
basic feat can be daunting until you figure out the right way to do it. You'll
have to be ingenious and persevering, and your rewards will be great.

To "win" a fantasy/adventure game, you must solve the author's devious
puzzles, and overcome the obstacles that confront you — whether they be
dragons or desperadoes. Death, should it come, is transitory — just re-run the
program to live again!

Experienced adventurers make detailed maps of each world as an aid to ef-
fecting a solution, but you can omit this exercise if your memory is excep-
tional. Express your wishes with one- or two-word commands like, "LOOK",
"DROP KNIFE", or "GET RUBY". Use "I" to get an inventory of your
possessions. The introduction to each Adventure explains this more fully.

To start up the Adventure, just run the program called "INTRO" or "IN-
TRO. BAS" on your disk, or select the Adventure from the DV menu. On
cassette, the INTRO program is the one just before the Adventure, which is
the last program on the tape.

The Adventure runs in any Atari with at least 32K RAM (40K disk).

Here are the encrypted hints for Arabian Nights,
the Adventure in Issue 42.

To kill the dragon: DVZI ZMW IFY CSV IRMT.

To kill the serpent: DVZI ZMW IFY GSV ZNFOVG.

To kill the snake: FHV GSV HVIKVMG PROOVI.

To kill the Roc: FHV GSV HXRNRGZI.

To kill the cyclops: HSLLG SRN DRGS GSV WRZNLMW ZMW GSV

HORMTHSLG.

To get past the vultures: WIRMP LNZI'H DZGVI.

To kill the red genie: LUUVI SRN Z TLYOVG UFOO LU VO SZYRY'H

DZGVI.

To kill Roxor: IFY GSV NZTRX OZNK.

To get the eggshell: XFG GSV VTT DRGS GSV HXRNRGZI.

Open doors and gates by: SRGGRMT GSV TLMT.

To escape from Roxor's secret room: SRG GSV TLMT.

To get the magical cloak: TREV GSV TLYOVG GL GSV HSLKPVVKVI

ZUGVI PROORMT GSV IVW TVMRV.

In sandy places: WRT ULI ZOO BLF'IV DLIGS.

To fly the magic carpet: HGZMW LM RG ZMW HZB ZDZB.

J

SoftSide Selections it43 31

SoftSide Selections #43 32

y A X

General Information About Listings, SWAT, and
Magnetic IVIedia

These are the standard procedures for the programs published in
SoftSide Selections. Sometinnes, a particular program does not iend
itseif to these procedures. Always read the specific instructions ac-
companying a program. They will instruct you if there are any
variances from the following procedures. Also, bacl< issues of Soft-
Side Magazine may differ in some details.

SWAT
TAKLE

SWAT Tables

At the conclusion of each program listing in SoftSide Selections,
we include a SWAT (Strategic Weapon Against Typos) Table. SWAT
for the Atari appeared in SoftSide Issue #30. If you missed Issue #30,
we'll send you a free reprint of SWAT. Send a self-addressed, stamped
envelope to: SoftSide Publications, Inc.

Department SWAT

10 Northern Blvd.

Northwood Executive Park

Amherst, NH 03031

Be sure to tell us that you have an Atari computer.

Magnetic Media

Disks do not carry the DOS.SYS and DUP.SYS files, and are not
"bootable." First, boot a disk with DOS on it, then insert the SoftSide
Selections disk, and run "D:COVER". Our disks are in DOS 2 format.

Tapes GLOAD in the normal manner. If you encounter difficulty, try
this procedure:

1. POKE 54018,54

2. Turn up the volume on your TV.

3.. Type GLOAD, and press RETURN once.

4. Press the play button, and listen.

5. When you hear the steady leader tone, press RETURN again.
Side two of the tape is a duplicate of side one.

SoftSide Selections disks and tapes are duplicated on reliable, pro-
fessional equipment. Bad copies are exceedingly rare. Nevertheless,
the trip through the mail occasionally results in damage to the sen-
sitive magnetic media. If, after a reasonable number of attempts on
well-adjusted, clean equipment, you are unable to load a program,
return it to us along with an exact explanation of your protiiem. We
will send you a replacement.

SoftSide Selections media are not copy protected. We urge you to
make an archival backup copy of your disk or tape as soon as you
receive it, as our replacement policy is valid only for 30 days. Please
resist the urge to give away copies of copyrighted material.

r

Line Listings

Line listings are in standard 38-column format, with special conven-
tions for representing unprintable characters:

You must type underlined characters, including blank spaces, in in-
verse video.

When graphics or control (CTRL) characters are included in a string
(between quotation marks), a nearby REM statement will make note of
it; in such cases, graphics characters appear as the corresponding
lower-case letters, and control characters appear as the correspond-
ing unshifted key symbols. For example: the lower-case letter s
represents a graphic cross, which you type by pressing the S key while
holding down the CTRL key; the = sign represents CTRL-down-arrow,
which you type by pressing and releasing the ESC key, then pressing
the = key while holding down CTRL. For more information about
entering control characters, refer to Appendix F and the back cover of
your Atari BASIC Reference Manual.

There are two exceptions to our above convention: A clear-screen
character (ESC SHIFT-CLEAR) appears in our listings as a right-hand
brace, which looks like this: }. The other exception is that a shifted =
sign appears as a broken vertical line: 1 .

Occasionally, a program will demand that we vary from these con-
ventions. In such a case, a nearby REM statement or the program's in-
troductory article will clearly note the special instructions.

Be sure to read each program's explanatory article — it may con-
tain special, important information about the program. Also, use
SWAT on your program, and get the free reprint if you don't have
SWAT.

System Requirements

The necessary memory and other equipment you need to run a pro-
gram are listed in the introductory paragraph of the article for each
program. (Also see the SoftSide Adventure Series elsewhere in this
booklet.)

A_5atS3

3ifectionj

Here's SoftSide Selections, the handy, pull-out
booklet with program listings for your Atari
400/800/1200 computer. This issue, SoftSide
Selections for the Atari features:

• Relaaax... — SoftSide has brought you many
programs that may keep you up at night. Now, two
psychologists have developed this program to
help you relax.

• Math Quiz — This colorful educational pro-
gram can help kids practice their arithmetic.

• Atari DV Bonus Program: Chemistry Assistant —

This educational program performs over ten com-
mon chemical calculations.

• The SoftSide Adventure Series —

by David Pleacher.

You are in high school, and who said that going
to high school is not an adventure? Go to all your
classes, and complete all the activities before
earning credit. Don't upset the assistant principal,
or you might get suspended — or even expelled!
Satisfy your teachers' requirements, pass six sub-
jects, and graduate!

SOFTSIDE PUBLICATIONS, INC.

Amherst, New Hampshire